用AU3来实现一组未知数的大小排序，也就是经典的冒泡排序法，以前在C语言中看过，现在转来AU3来实现罢了。

查看更多...

Tags: auoit 冒泡排序auoit 冒泡排序 au3 冒泡排序au3 冒泡排序 随机数冒泡排序随机数冒泡排序

检测端口开放函数。

_CheckTcpPort("192.168.1.228",1390)
If @error Then MsgBox(64,"error","端口没有开放")


Func _CheckTcpPort($sIP,$sPort)
;=============================
;说明：检测TCP端口是否开放
;返回；错误值为1，IP地址错误
;      错误值为2，端口错误
;其他错误值依照
;Windows API WSAGetError 返回
;作者：Sanhen
;Web: www.autoit.net.cn
;=============================
Local $TcpSocket   
TCPStartUp()
$TcpSocket = TCPConnect($sIP ,$sPort)
Switch $TcpSocket
     Case -1    
        Return SetError(@error)
    Case Else
        Return ConsoleWrite("Open Port ")
EndSwitch

TCPShutdown()

EndFunc

查看更多...

Tags: 检测端口检测端口 Tcp portTcp port Udp portUdp port

很多东西，其实帮助就带有。只是真正认真看的，没有几个。在这里再收录一下，以备忘。

 

; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage")  ;Shift-Alt-d

;;;; Body of program would go here ;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    MsgBox(4096,"","This is a message.")
EndFunc

Tags: 暂停停本暂停停本

转自AUTOIT中文论坛里 分别是thesnow和ernesthan的东东.

$obj=ObjCreate("ThunderAgent.Agent")

;$obj.Addtask("下载地址", "另存文件名", "保存目录","任务注释","引用地址","开始模式", "只从原始地址下载","从原始地址下载线程数") ;添加下载任务

查看更多...

Tags: 迅雷下载迅雷下载 迅雷api迅雷api 迅雷接口迅雷接口

在网上看到这篇文章的时候，心里的那根弦莫明其妙的触动，也许是因为同病相怜吧，因为曾经年轻过。。

一个男孩向女孩告白。在校园操场边的小树丛里，伴着夏日的蝉鸣和草香，真情切切地坦承爱意。  

    奈何女孩就是对他没感觉，直截了当地拒绝了他。  

查看更多...

Tags: 人总需要理由人总需要理由

网卡上传下载流量实现，需要附件的DLL来实现。

Local $TotelRecv,$LastRecv
Local $TotelSend,$LastSend

While True

$sReturn=DllCall("xbs.dll","long","XBSud","long","Param1")

Switch $sReturn[1]
    Case 0
        TrayTip("测试","下载速度"&Round(($sReturn[0]-$LastRecv)/1024,2)&"kb/s",0)
        $LastRecv=$sReturn[0]
    Case 1
        TrayTip("测试","上传速度"&Round (($sReturn[0]-$LastSend)/1024,2)&"kb/s",0)
        $LastSend=$sReturn[0]
EndSwitch

Sleep(1000)

WEnd

点击下载此文件

Tags: 网络流量网络流量 上传下载流量上传下载流量

时隔一年零六月，终于迎来了桩考。考试安排在是下午三点，附近考深圳牌的一起四人，在教练的带领下，下午两点20分准时到达了西丽车管所；签名之后，兴致勃勃的看别人考试，大概看了下，车管所的考试桩位非常多，大概十几至二十个，没有细数，外边等候考试的人也非常之多，场外的空地除了车就是人。考试完全实现了电子化，红外线感应车身，还有摄像头监控，非常严格；有意思的是，正好在外边观看时，有几个女孩子考试；其中一个，第一次的时候车身摆来去的，连方向盘都打反了，果然不出所料，第一次直接车身出线，考砸了；第二次她学精了，一边试了几次车，在保安的催下，才开始按指纹考试，看着倒桩进去的时候，真的好险，非常近中杆，在出来的时候，一看，没调平车身，以为她过不了；转头抽了支烟，谁知，刚点燃烟，吸了口，她居然有惊无险的出来了，听得身边一片欢呼声。。。。。。。。

查看更多...

Tags: 桩考桩考