谁能教下怎么用VB制作IS挂机软件

就是做出来的IS挂机程序能在一个电脑里多开IS号，平常一个电脑只限开3个IS，我想利用程序来多开，可是不知道要怎么用VB做出来

请说具体要求，尽量具体些，一般来说，没有做不了的程序！

网站是发不了，【IS挂机精灵】搜一下就出来了，你可以看一下这个，应该会对你有用

楼主您好。

;Ultra String Reference ;Address Disassembly Text String 004014E0 push 0042362C ;(initial cpu selection) 0047A215 mov eax, 00425778 http://www.bestchao.com/gjs_gg.htm 0047A75A mov dword ptr [ebp-50], 00425A80 windir 0047A78A push 00425A94 \system32\taskmgr.exe 0047ADC2 mov edx, 00425BF0 hkcu\software\microsoft\windows\currentversion\policies\ 0047ADDA push 00425C68 wscript.shell 0047ADFC push 00425C88 system\disabletaskmgr 0047AE2A push 00425CB4 regwrite 0047AE6A push 00425CCC explorer\nologoff 0047AEA6 push 00425CB4 regwrite 0047AED2 push 00425CF4 explorer\noclose 0047AEF8 push 00425CB4 regwrite 0047AF3A push 00425D1C system\disablelockworkstation 0047AF60 push 00425CB4 regwrite 0047AFA2 push 00425D5C system\disablechangepassword 0047AFC8 push 00425CB4 regwrite 0047B00A push 00425D9C explorer\noviewcontextmenu 0047B030 push 00425CB4 regwrite 0047B072 push 00425DD8 explorer\nochangestartmenu 0047B0AE push 00425CB4 regwrite 0047B0DA push 00425E14 explorer\norun 0047B100 push 00425CB4 regwrite 0047B142 push 00425E38 explorer\nosettaskbar 0047B16B push 00425CB4 regwrite 0047B5FD push 00425F9C hwnd 0047B74D push 00425F9C hwnd 0047BAA6 push 00426510 c:\ 0047BAB9 push 004251D0 http://www.bestchao.com 0047BB46 push 00426510 c:\ 0047BB59 push 0042651C mailto: 0047BB5E push 004251A8 bestchao@126.com

①鼠标位置设置函数，下述参数a_RestrictObject是限制对象，可以是窗体，也可以是窗体上的任意控件。 Public Sub SetRestrict(ByRef a_RestrictObject As Object) Dim r As RECT On Error Resume Next GetWindowRect (a_RestrictObject.hwnd), r If Err.Number = 0 Then Call ClipCursor(lpRect) End If End Sub ②鼠标位置解除函数，即接触对鼠标位置的限制 Public Sub RemoveRestrict() Dim lResult As Long Dim RT_ScreenArea As RECT With RT_ScreenArea .Top = 0 .Left = 0 .Bottom = Screen.Height \ Screen.TwipsPerPixelX .Right = Screen.Width \ Screen.TwipsPerPixelY End With lResult = ClipCursor(RT_ScreenArea) End Sub ③函数1，2所用到的API。 Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long ④注意点，上述函数1，不要随意使用，使用后，要用函数2解除，如不接触， 函数1所造成的鼠标移动范围可触及到系统Windows。所以函数1，2要共同使用。 希望答案楼主满意；。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息