Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB
ÈÈÃűêÇ©£º c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 ×îÐÂÎÄÕ : vb

Çë´ó¼Ò°ïæ°ÑÒÔϵÄdelphi´úÂë±ä³ÉVBµÄ

const

  XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //×Ö·û´®¼ÓÃÜÓÃ

function Enc(Str:String):String;//×Ö·û¼ÓÃܺ¯數  這ÊÇÓõÄÒ»個異»ò¼ÓÃÜ 
var 
i,j:Integer; 
begin 
Result:=''; 
......

VB Winsock½Ø»ñ¾ÖÓòÍøÊý¾Ý°ü

ÎÒÏëÓÃvb±àд³ÌÐò½Ø»ñ¾ÖÓòÍøÄÚËùÓз¢Ë͵½Ö¸¶¨IP£¨±ÈÈç225.2.1.1£©µÄÊý¾Ý°ü£¬¹ý³Ì´ó¸ÅÔõÑù£¿×îºÃÄÜÌṩ³ÌÐò²Î¿¼¡£
¸ßÊÖÖ¸½Ì°¡¡£
Ö»ÄÜ˵lzÍêȫûÓÐÍøÂç֪ʶ¡£¡£¡£
lzËæ±ãÕÒÒ»±¾¼ÆËã»úÍøÂçµÄ½Ì¿ÆÊéºÃºÃ¿´¿´¡£

ÕâÊDz»¿ÉÄܵġ£³ý·ÇarpÆÛÆ­¡£

Õâ¸ö¹¦Äܸܺ´ÔÓ,ÓÃapi¿ÉÒÔʵÏÖ

±¾À´SOCKETϽ«Íø¿¨ÉèÖÃΪ»ìÔÓģʽ ......

vb¶þ½øÖÆ´æ´¢ÎÊÌâ

ÎÒÔÚ³ÌÐòÖÐÉèÖÃÁËÒ»¸öLongÕûÐͱäÁ¿a,Ò»¸öString ±äÁ¿b
Private Sub Command1_Click()
    Dim a As Long
    a = 5
    Dim b As String
    b = "bbb"
    fHndl = FreeFile(0)
    Open "c:\a.a" For Binary As f ......

¹ØÓÚvb¶ÁÈ¡txtÎļþµÄÎÊÌâ

´ó¼ÒºÃ£¬ÎÒÐèÒª×öµÄÎÊÌâÊÇÕâÑùµÄ£º
ÎÒÓÐÒ»×éÊý£¬´æ·ÅÔÚtxtÎļþÖС£Êý¾Ý¹²1000ÐУ¬15ÁС£ÎÒÐèÒª×öµÄÊǰѵÚ2£¬7£¬8ÁС¢´Ó500µ½700ÐеÄÊý¾Ý¶Áµ½Èý¸öÊý×éÀïÃæ¡£Ã¿¸öÊý×é´æ·ÅÏàÓ¦µÄÒ»ÁÐÊý¡£
Àϰå´ß×ÅÒª¡£ºÜ¼±£¡£¡£¡£¡
Çó´ó¼Ò¶à¶à°ïæ¡£ÎÒÓõÄÓïÑÔÊÇvb¡£
dim s as string,ss() as string
dim ss1(200) as string,ss2 ......

vb ftp ÎļþÏÂÔØ £¨¸ßÊÖ°ï¼ÓÒ»¸öÅжÏÓï¾ä£©

vb ftp ÎļþÏÂÔØ

Private Sub Command1_Click()
Inet1.Protocol = icFTP
    Inet1.URL = "ftp://192.168.0.254"
    Inet1.RemotePort = 21
    Inet1.UserName = "a"
    Inet1.Password = "123"
 
  &nb ......

vb ÈçºÎ»ñÈ¡±¾µØÁ¬½Ó->ÓÒ¼üÊôÐÔÀïÃæÊ¹ÓõÄÏîÄ¿

ÈçÌ⣬¾ÍÊÇ»ñÈ¡±¾µØÁ¬½ÓÀï ¡°´ËÁ´½ÓʹÓÃÏÂÃæµÄÏîÄ¿£º¡±ÏµÄÏîÄ¿ÁÐ±í¼°Ç°ÃæµÄ¹³ÊÇ·ñÑ¡ÖУ¬ÄÜ·ñʵÏÖ£¬ÇëÖ¸µã
×¢²á±í¡£


ÒýÓÃ
×¢²á±í¡£


ÔÚÄĸö¼üÏÂÃæÄØ£¬ÕÒ²»µ½°¡£¬ÓÐûÓÐö¾ÙµÄ°ì·¨ÄØ

º¹£¬Ê²Ã´ÎÊÌâ¶¼ÓÐ.
×¢²á±íÀïËÑËÑ¿´£¬Ã»ÕÒ¹ý

ÒýÓÃ
º¹£¬Ê²Ã´ÎÊÌâ¶¼ÓÐ.
×¢²á±íÀïËÑËÑ¿´£¬Ã»ÕÒ¹ý

Î ......
×ܼǼÊý:1659; ×ÜÒ³Êý:277; ÿҳ6 Ìõ; Ê×Ò³ ÉÏÒ»Ò³ [160] [161] [162] [163] 164 [165] [166] [167] [168] [169]  ÏÂÒ»Ò³ βҳ
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ