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±àд³ÌÐò½Ø»ñ¾ÖÓòÍøÄÚËùÓз¢Ë͵½Ö¸¶¨IP£¨±ÈÈç225.2.1.1£©µÄÊý¾Ý°ü£¬¹ý³Ì´ó¸ÅÔõÑù£¿×îºÃÄÜÌṩ³ÌÐò²Î¿¼¡£
¸ßÊÖÖ¸½Ì°¡¡£
Ö»ÄÜ˵lzÍêȫûÓÐÍøÂç֪ʶ¡£¡£¡£
lzËæ±ãÕÒÒ»±¾¼ÆËã»úÍøÂçµÄ½Ì¿ÆÊéºÃºÃ¿´¿´¡£
ÕâÊDz»¿ÉÄܵġ£³ý·ÇarpÆÛÆ¡£
Õâ¸ö¹¦Äܸܺ´ÔÓ,ÓÃapi¿ÉÒÔʵÏÖ
±¾À´SOCKETϽ«Íø¿¨ÉèÖÃΪ»ìÔÓģʽ ......
ÎÒÔÚ³ÌÐòÖÐÉèÖÃÁËÒ»¸ö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 ......
´ó¼ÒºÃ£¬ÎÒÐèÒª×öµÄÎÊÌâÊÇÕâÑùµÄ£º
ÎÒÓÐÒ»×éÊý£¬´æ·ÅÔÚtxtÎļþÖС£Êý¾Ý¹²1000ÐУ¬15ÁС£ÎÒÐèÒª×öµÄÊǰѵÚ2£¬7£¬8ÁС¢´Ó500µ½700ÐеÄÊý¾Ý¶Áµ½Èý¸öÊý×éÀïÃæ¡£Ã¿¸öÊý×é´æ·ÅÏàÓ¦µÄÒ»ÁÐÊý¡£
Àϰå´ß×ÅÒª¡£ºÜ¼±£¡£¡£¡£¡
Çó´ó¼Ò¶à¶à°ïæ¡£ÎÒÓõÄÓïÑÔÊÇvb¡£
dim s as string,ss() as string
dim ss1(200) as string,ss2 ......
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 ......
ÈçÌ⣬¾ÍÊÇ»ñÈ¡±¾µØÁ¬½ÓÀï ¡°´ËÁ´½ÓʹÓÃÏÂÃæµÄÏîÄ¿£º¡±ÏµÄÏîÄ¿ÁÐ±í¼°Ç°ÃæµÄ¹³ÊÇ·ñÑ¡ÖУ¬ÄÜ·ñʵÏÖ£¬ÇëÖ¸µã
×¢²á±í¡£
ÒýÓÃ
×¢²á±í¡£
ÔÚÄĸö¼üÏÂÃæÄØ£¬ÕÒ²»µ½°¡£¬ÓÐûÓÐö¾ÙµÄ°ì·¨ÄØ
º¹£¬Ê²Ã´ÎÊÌâ¶¼ÓÐ.
×¢²á±íÀïËÑËÑ¿´£¬Ã»ÕÒ¹ý
ÒýÓÃ
º¹£¬Ê²Ã´ÎÊÌâ¶¼ÓÐ.
×¢²á±íÀïËÑËÑ¿´£¬Ã»ÕÒ¹ý
Î ......