Thinkai's Blog

Centos6安装STUN服务器 8832

作者为 thinkai 于 2015年4月9日发表

Linux • VOIP

nat • stun

虽然免费的stun服务器也能凑合着用，但是也越来越不适用于中国的网络环境，所以你可以到大的IDC去买云主机并购买额外IP来搭建STUN服务器，主流成本100多RMB一个月。

首先你的有两个公网IP的服务器！然后注意把防火墙关掉。

#下载stun

wget http://ncu.dl.sourceforge.net/project/stun/stun/0.97/stund-0.97.tgz

#检查安装编译环境

yum -y install gcc automake autoconf libtool make

#解压

tar -zxvf stund-0.97.tgz

#进入目录

cd stund

#编译

make

#复制服务端

mkdir /root/bin/
cp server /root/bin/stunserver

#创建服务脚本

vi /etc/init.d/stund

#然后填充服务脚本

#!/bin/bash
# 
#chkconfig: 2345 70 30
#description:STUN Server
RETVAL=0 
start(){ #启动服务的入口函数  
echo  "STUN Server is started..."  
/root/bin/stunserver -v -h 8.8.8.8  -a 4.4.4.4 -v
#主IP 辅助IP
}  
  
stop(){ #关闭服务的入口函数  
echo  "STUN Server is stoped..."  
}  
  
#使用case选择  
case $1 in  
start)  
start  
;;  
stop)  
stop  
;;  
*)  
echo "error choice ! please input start or stop";;  
esac  
exit $RETVA

#按【ESC】输入:wq保存退出

#设置权限

chmod +x /etc/init.d/stund

#添加服务

chkconfig --add stund

#设置防火墙

setup

#找到Firewall设置把Enable去掉，然后Save保存退出

#为了安全可以修改root用户名和设置denyhosts

#重启后，你就可以下载NatTypeTester测试你的服务器了。

php smtp&pop3收发邮件代码 2450

作者为 thinkai 于 2015年3月23日发表

网站建设

<?php 
if ($EMAIL_INC) return; 
$EMAIL_INC= "defined"; 
define( "SmtpPort",25); 

class Pop3 { 
var $subject; // 邮件主题 
var $from_email; // 发件人地址
var $from_name; // 发件人姓名
var $to_email; // 收件人地址
var $to_name; // 收件人姓名
var $body; // 邮件内容
var $filename; // 文件名
var $socket; // 当前的 socket 
var $Line; 
var $Status; 

function pop3_open($server, $port) 
{ 

$this->Socket = fsockopen($server, $port); 
if ($this->Socket <= 0){ 
return false; 
} 
$this->Line = fgets($this->Socket, 1024); 
$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "+") return false; 
return true; 
} 

function pop3_user($user) 
{ 

if ($this->Socket < 0){ 
return false; 
} 
fputs($this->Socket, "USER $this->user\r\n"); 
$this->Line = fgets($this->Socket, 1024); 
$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "+") return false; 

return true; 
} 

function pop3_pass( $pass) 
{ 

fputs($this->Socket, "PASS $pass\r\n"); 
$this->Line = fgets($this->Socket, 1024); 
$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "+") return 0; 

return 1; 
} 

function pop3_stat() 
{ 

fputs($this->Socket, "STAT\r\n"); 
$this->Line = fgets($this->Socket, 1024); 
$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "+") return 0; 

if (!eregi( "+OK (.*) (.*)", $this->Line, $regs)) 
return 0; 

return $regs[1]; 
} 

function pop3_list() 
{ 
fputs($this->Socket, "LIST\r\n"); 
$this->Line = fgets($this->Socket, 1024); 
$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "+") return 0; 

$i = 0; 
while (substr($this->Line = fgets($this->Socket, 1024), 0, 1) <> ".") 
{ 
$articles[$i] = $this->Line; 
$i++; 
} 
$articles[ "count"] = $i; 

return $articles; 
} 

function pop3_retr($nr) 
{ 

fputs($this->Socket, "RETR $nr\r\n"); 
$this->Line = fgets($this->Socket, 1024); 
$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "+") return 0; 

while (substr($this->Line = fgets($this->Socket, 1024), 0, 1) <> ".") 
{ 
$data[$i] = $this->Line; 
$i++; 
} 
$data[ "count"] = $i; 

return $data; 
} 

function pop3_dele( $nr) 
{ 

fputs($this->Socket, "DELE $nr\r\n"); 
$this->Line = fgets($this->Socket, 1024); 
$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "+") return 0; 
return 1; 
} 

function pop3_quit() 
{ 

fputs($this->Socket, "QUIT\r\n"); 
$this->Line = fgets($this->Socket, 1024); 
$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "+") return 0; 

return 1; 
} 
} 

class Smtp { 

var $Subject; // string the email's subject 
var $FromName; // string sender's name (opt) 
var $ToName; // string recipient's name (opt) 
var $Body; // string body copy 
var $Attachment; // attachment (optional) 
var $AttachmentType; 
var $Socket; 
var $Line; 
var $Status; 

function Smtp($Server = "localhost",$Port = SmtpPort) 
{ 
return $this->Open($Server, $Port); 
} 

function SmtpMail($FromEmail, $FromName, $ToEmail, $ToName, $Subject, $Body, $Attachment=null, $AttachmentType= "TEXT") 
{ 
$this->Subject = $Subject; 
$this->ToName = $ToName; 

$this->FromName = $FromName; 
$this->Body = $Body; 

$this->Attachment = $Attachment; 
$this->AttachmentType = $AttachmentType; 

if ($this->Helo() == false){ 
return false; 
} 
if ($this->MailFrom($FromEmail) == false){ 
return false; 
} 
if ($this->RcptTo($ToEmail) == false){ 
return false; 
} 
if ($this->Body() == false){ 
return false; 
} 
if ($this->Quit() == false){ 
return false; 
} 
} 

function Open($Server, $Port) 
{ 

$this->Socket = fsockopen($Server, $Port); 
if ($this->Socket < 0) return false; 

$this->Line = fgets($this->Socket, 1024); 

$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "2") return false; 

return true; 
} 

function Helo() 
{ 
if (fputs($this->Socket, "helo\r\n") < 0 ){ 
return false; 
} 
$this->Line = fgets($this->Socket, 1024); 

$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "2") return false; 

return true; 
} 

function Ehlo() 
{ 

/* Well, let's use "helo" for now.. Until we need the 
extra func's [Unk] 
*/ 
if(fputs($this->Socket, "helo localhost\r\n")<0){ 
return false; 
} 
$this->Line = fgets($this->Socket, 1024); 

$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "2") return false; 

return true; 
} 

function MailFrom($FromEmail) 
{ 

if (fputs($this->Socket, "MAIL FROM: <$FromEmail>\r\n")<0){ 
return false; 
} 

$this->Line = fgets($this->Socket, 1024); 

$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "2") return false; 

return true; 
} 

function RcptTo($ToEmail) 
{ 

if(fputs($this->Socket, "RCPT TO: <$ToEmail>\r\n")<0){ 
return false; 
} 
$this->Line = fgets($this->Socket, 1024); 

$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "2") return false; 
return true; 
} 

function Body() 
{ 
$FileSize = 0; 
$Attachment = null; 
$fp = null; 

$buffer = sprintf( "From: %s\r\nTo:%s\r\nSubject:%s\r\n", $this->FromName, $this->ToName, $this->Subject); 

if(fputs($this->Socket, "DATA\r\n")<0){ 
return false; 
} 
$this->Line = fgets($this->Socket, 1024); 

$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "3") return false; 

if(fputs($this->Socket, $buffer)<0){ 
return false; 
} 

if ($this->Attachment == null){ 

if(fputs($this->Socket, "MIME-Version: 1.0\r\nContent-Type: text/plain; charset=ISO-8859-1\r\nContent-Transfer-Encoding: 7bit\r\n\r\n")<0){ 
return false; 
} 
if(fputs($this->Socket, "$this->Body\r\n\r\n")<0){ 
return false; 
} 

if(fputs($this->Socket, ".\r\n")<0){ 
return false; 
} 

$this->Line = fgets($this->Socket, 1024); 
if (substr($this->Line, 0, 1) <> "2"){ 
return false; 
}else{ 
return true; 
} 
}else{ 
if(fputs($this->Socket, "MIME-Version: 1.0\r\nContent-Type: multipart/mixed; boundary=\"----=_NextPart_000_01BCFA61.A3697360\"\r\n". 
"Content-Transfer-Encoding: 7bit\r\n\r\n". 
"This is a multi-part message in MIME format.\r\n". 
"\r\n------=_NextPart_000_01BCFA61.A3697360\r\n". 
"Content-Type: text/plain; charset=ISO-8859-1\r\n". 
"Content-Transfer-Encoding: 7bit\r\n". 
"\r\n")<0){ 
return false; 
} 

/* 输出邮件内容 */ 
if(fputs($this->Socket, "$this->Body\r\n\r\n")<0){ 
return false; 
} 

if ( fputs($this->Socket, "\r\n------=_NextPart_000_01BCFA61.A3697360\r\n")<0){ 
return false; 
} 
$FileSize = filesize($this->Attachment); 
if ($FileSize == false){ 
return false; 
} 
if (($fp = fopen($this->Attachment, "r"))== false) { 
return false; 
}else{ 
$Attachment = fread($fp,$FileSize); 
} 

// 如果没有附件的目录 
if (($AttachName = strrchr($this->Attachment, '/')) == false){ 

$AttachName = $this->Attachment; 
} 

if( fputs($this->Socket, 
"Content-Type: application/octet-stream; \r\nname=\"$AttachName\"\r\n". 
"Content-Transfer-Encoding: quoted-printable\r\n". 
"Content-Description: $AttachName\r\n". 
"Content-Disposition: attachment; \r\n\tfilename=\"$AttachName\"\r\n". 
"\r\n")<0){ 
return false; 
} 

/* 输出附件*/ 
if( fputs($this->Socket, $Attachment)<0){ 
return false; 
} 
if ( fputs($this->Socket, "\r\n\r\n------=_NextPart_000_01BCFA61.A3697360--\r\n")<0){ 
return false; 
} 

if( fputs($this->Socket, ".\r\n")<0){ 
return false; 
} 

$this->Line = fgets($this->Socket, 1024); 
if (substr($this->Line, 0, 1) <> "2") 
return false; 

return true; 

} 
} 

function Quit() 
{ 

if(fputs($this->Socket, "QUIT\r\n")<0){ 
return false; 
} 
$this->Line = fgets($this->Socket, 1024); 

$this->Status[ "LASTRESULT"] = substr($this->Line, 0, 1); 
$this->Status[ "LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

if ($this->Status[ "LASTRESULT"] <> "2") return 0; 

return 1; 
} 
function Close() 
{ 
fclose($this->Socket); 
} 
} 
/* 

怎样使用这个程序的一个示例 

$MailTo = new Smtp(); 
$MailTo->SmtpMail("Dave@micro-automation.net","Dave Cramer", 
"Dave@micro-automation.net","David", 
"Test Mail",$MailMessage,"service.tab",0); 
$MailTo->Close(); 
$MailTo=null; 

*/ 
/* 
$pop3 = pop3_open("localhost", "110"); 
if (!$pop3) { 
printf("[ERROR] Failed to connect to localhost<BR>\n"); 
return 0; 
} 

if (!pop3_user($pop3, "unk")) { 
printf("[ERROR] Username failed!<BR>\n"); 
return 0; 
} 

if (!pop3_pass($pop3, "secret")) { 
printf("[ERROR] PASS failed!<BR>\n"); 
return 0; 
} 

$articles = pop3_list($pop3); 
if (!$articles) { 
printf("[ERROR] LIST failed!<BR>\n"); 
return 0; 
} 

for ($i = 1; $i < $articles ["count"] + 1; $i++) 
{ 
printf("i=$i<BR>\n"); 
$data = pop3_retr($pop3,$i); 
if (!$data) { 
printf("data goes wrong on '$i'<BR>\n"); 
return 0; 
} 

for ($j = 0; $j < $data["count"]; $j++) 
{ 
printf("$data[$j]<BR>\n"); 
} 
} 
*/ 
?>
分享给朋友：

评论功能已被关闭。

CDO.Message 发邮件 Autohotkey 5730

作者为 thinkai 于 2015年3月23日发表

Autohotkey

smtp

Mail("sender@mail.com","receiver@mail.com","测试" A_Now,"正文空空如也")
;qq邮箱需要到网页邮箱设置-账户里面开启smtp服务，密码是另外生成的密码

Mail(from,to,subject,content,attach*){ ;发件人，收件人，标题，正文，附件文件路径数组 eg:["d:\a.xls","d:\b.doc"]
NameSpace := "http://schemas.microsoft.com/cdo/configuration/"
Email := ComObjCreate("CDO.Message")
Email.From := from
Email.To := to
;Email.Cc := "cc@mail.com" ;抄送
;Email.Bcc := "bcc@mail.com" ;暗送
Email.Subject := subject
;Email.Htmlbody := content ;html格式的正文
Email.Textbody := content ;纯文本格式的正文
for k,v in attach
{
IfExist, % v
Email.AddAttachment(v)
}
Email.Configuration.Fields.Item(NameSpace "sendusing") := 2
Email.Configuration.Fields.Item(NameSpace "smtpserver") := "smtp.mail.com" ;SMTP服务器地址
Email.Configuration.Fields.Item(NameSpace "smtpserverport") := 25 ;smtp发送端口 qq：465
Email.Configuration.Fields.Item(NameSpace "smtpauthenticate") := 1 ;需要验证
;Email.Configuration.Fields.Item(NameSpace "smtpusessl") := true ;使用ssl qq等需要
Email.Configuration.Fields.Item(NameSpace "sendusername") := "sender@mail.com" ;邮箱账号
Email.Configuration.Fields.Item(NameSpace "sendpassword") := "password" ;邮箱密码
Email.Configuration.Fields.update()

Email.Fields.Item("urn:schemas:mailheader:disposition-notification-to") := from ;设置“已读”回执
Email.Fields.Item("urn:schemas:mailheader:return-receipt-to") := from ;设置“已送达”回执
Email.Fields.Update()

Email.Send
}

评论功能已被关闭。

文件与十六进制显示值互转 Autohotkey 4614

作者为 thinkai 于 2015年3月18日发表

Autohotkey

hex • 文件对象

这是使用File对象把可见十六进制与文件互转的一个函数。

;文件转十六进制
file2hex(file){
	tmp_file := FileOpen(file, "r")
	while not tmp_file.AtEOF { ;没有到结尾
		tmp_file.RawRead(Data, 1)
	tmp_hex := SubStr("00" . ToBase(Asc(Data),16),-1)
	hex = % hex tmp_hex
}
tmp_file.Close()
return hex
}

;十六进制转文件 比如hex=313233 ,文件内容则为123
hex2file(hex,file){
	tmp_file := FileOpen(file, "w")
	if (Mod(StrLen(hex),2)=1) ;不是双数长度
		return -1
	while hex
	{
		StringLeft, tmp_hex, hex, 2
		StringTrimLeft, hex,hex, 2
		tmp_hex := "0x" tmp_hex
		tmp_file.WriteUChar(tmp_hex)
	}
	tmp_file.Close()
	tmp_file =
}

;进制转换函数
ToBase(n,b){
	return (n < b ? "" : ToBase(n//b,b)) . ((d:=Mod(n,b)) < 10 ? d : Chr(d+55))
}

评论功能已被关闭。

httpQuery——强大的网络下载函数 Autohotkey 5555

作者为 thinkai 于 2015年1月15日发表

Autohotkey • 网站建设

download • get • post • UserAgent

取自：http://www.autohotkey.com/board/topic/30624-function-httpquery-get-and-post-requests-update-036

httpQuery(byref p1 = "", p2 = "", p3="", p4="")
{   ; v0.3.6 (w) Oct, 26 2010 by derRaphael / zLib-Style release
	; currently the verbs showHeader, storeHeader, and updateSize are supported in httpQueryOps
	; in case u need a different UserAgent, Proxy, ProxyByPass, Referrer, and AcceptType just
	; specify them as global variables - mind the varname for referrer is httpQueryReferer [sic].
	; Also if any special dwFlags are needed such as INTERNET_FLAG_NO_AUTO_REDIRECT or cache
	; handling this might be set using the httpQueryDwFlags variable as global
	global httpQueryOps, httpAgent, httpProxy, httpProxyByPass, httpQueryReferer, httpQueryAcceptType
		, httpQueryDwFlags
	; Get any missing default Values

	;v0.3.6
	; check for syntax
	if ( VarSetCapacity(p1) != 0 )
		dreturn:=true,  result := "", lpszUrl := p1, POSTDATA := p2, HEADERS  := p3
	else
		result := p1, lpszUrl := p2, POSTDATA := p3, HEADERS  := p4

	DefaultOps =
	(LTrim Join|
		httpAgent=AutoHotkeyScript|httpProxy=0|httpProxyByPass=0|INTERNET_FLAG_SECURE=0x00800000
		SECURITY_FLAG_IGNORE_UNKNOWN_CA=0x00000100|SECURITY_FLAG_IGNORE_CERT_CN_INVALID=0x00001000
		SECURITY_FLAG_IGNORE_CERT_DATE_INVALID=0x00002000|SECURITY_FLAG_IGNORE_CERT_WRONG_USAGE=0x00000200
		INTERNET_OPEN_TYPE_PROXY=3|INTERNET_OPEN_TYPE_DIRECT=1|INTERNET_SERVICE_HTTP=3
	)
	Loop,Parse,DefaultOps,|
	{
		RegExMatch(A_LoopField,"(?P<Option>[^=]+)=(?P<Default>.*)",http)
		if StrLen(%httpOption%)=0
			%httpOption% := httpDefault
	}

	; Load Library
	hModule := DllCall("LoadLibrary", "Str", "WinINet.Dll")

	; SetUpStructures for URL_COMPONENTS / needed for InternetCrackURL
	; http://msdn.microsoft.com/en-us/library/aa385420(VS.85).aspx
	offset_name_length:= "4-lpszScheme-255|16-lpszHostName-1024|28-lpszUserName-1024|"
	. "36-lpszPassword-1024|44-lpszUrlPath-1024|52-lpszExtrainfo-1024"
	VarSetCapacity(URL_COMPONENTS,60,0)
	; Struc Size               ; Scheme Size                  ; Max Port Number
	NumPut(60,URL_COMPONENTS,0), NumPut(255,URL_COMPONENTS,12), NumPut(0xffff,URL_COMPONENTS,24)

	Loop,Parse,offset_name_length,|
	{
		RegExMatch(A_LoopField,"(?P<Offset>\d+)-(?P<Name>[a-zA-Z]+)-(?P<Size>\d+)",iCU_)
		VarSetCapacity(%iCU_Name%,iCU_Size,0)
		NumPut(&%iCU_Name%,URL_COMPONENTS,iCU_Offset)
		NumPut(iCU_Size,URL_COMPONENTS,iCU_Offset+4)
	}

	; Split the given URL; extract scheme, user, pass, authotity (host), port, path, and query (extrainfo)
	; http://msdn.microsoft.com/en-us/library/aa384376(VS.85).aspx
	DllCall("WinINet\InternetCrackUrlA","Str",lpszUrl,"uInt",StrLen(lpszUrl),"uInt",0,"uInt",&URL_COMPONENTS)

	; Update variables to retrieve results
	Loop,Parse,offset_name_length,|
	{
		RegExMatch(A_LoopField,"-(?P<Name>[a-zA-Z]+)-",iCU_)
		VarSetCapacity(%iCU_Name%,-1)
	}
	nPort:=NumGet(URL_COMPONENTS,24,"uInt")

	; Import any set dwFlags
	dwFlags := httpQueryDwFlags
	; For some reasons using a selfsigned https certificates doesnt work
	; such as an own webmin service - even though every security is turned off
	; https with valid certificates works when
	if (lpszScheme = "https")
		dwFlags |= (INTERNET_FLAG_SECURE|SECURITY_FLAG_IGNORE_CERT_CN_INVALID
	|SECURITY_FLAG_IGNORE_CERT_WRONG_USAGE)

	; Check for Header and drop exception if unknown or invalid URL
	if (lpszScheme="unknown") {
		Result := "ERR: No Valid URL supplied."
		return StrLen(Result)
	}

	; Initialise httpQuery's use of the WinINet functions.
	; http://msdn.microsoft.com/en-us/library/aa385096(VS.85).aspx
	hInternet := DllCall("WinINet\InternetOpenA"
		,"Str",httpAgent,"UInt"
		,(httpProxy != 0 ?  INTERNET_OPEN_TYPE_PROXY : INTERNET_OPEN_TYPE_DIRECT )
		,"Str",httpProxy,"Str",httpProxyBypass,"Uint",0)

	; Open HTTP session for the given URL
	; http://msdn.microsoft.com/en-us/library/aa384363(VS.85).aspx
	hConnect := DllCall("WinINet\InternetConnectA"
		,"uInt",hInternet,"Str",lpszHostname, "Int",nPort
		,"Str",lpszUserName, "Str",lpszPassword,"uInt",INTERNET_SERVICE_HTTP
		,"uInt",0,"uInt*",0)

	; Do we POST? If so, check for header handling and set default
	if (StrLen(POSTDATA)>0) {
		HTTPVerb:="POST"
		if StrLen(Headers)=0
Headers:="Content-Type: application/x-www-form-urlencoded"
} else ; otherwise mode must be GET - no header Defaults needed
	HTTPVerb:="GET"

; Form the request with proper HTTP protocol version and create the request handle
; http://msdn.microsoft.com/en-us/library/aa384233(VS.85).aspx
hRequest := DllCall("WinINet\HttpOpenRequestA"
	,"uInt",hConnect,"Str",HTTPVerb,"Str",lpszUrlPath . lpszExtrainfo
	,"Str",ProVer := "HTTP/1.1", "Str",httpQueryReferer,"Str",httpQueryAcceptTypes
	,"uInt",dwFlags,"uInt",Context:=0 )

; Send the specified request to the server
; http://msdn.microsoft.com/en-us/library/aa384247(VS.85).aspx
sRequest := DllCall("WinINet\HttpSendRequestA"
	, "uInt",hRequest,"Str",Headers, "uInt",StrLen(Headers)
	, "Str",POSTData,"uInt",StrLen(POSTData))

VarSetCapacity(header, 2048, 0)  ; max 2K header data for httpResponseHeader
VarSetCapacity(header_len, 4, 0)

; Check for returned server response-header (works only _after_ request been sent)
; http://msdn.microsoft.com/en-us/library/aa384238.aspx
Loop, 5
if ((headerRequest:=DllCall("WinINet\HttpQueryInfoA","uint",hRequest
	,"uint",21,"uint",&header,"uint",&header_len,"uint",0))=1)
	break

if (headerRequest=1) {
	VarSetCapacity(res,headerLength:=NumGet(header_len),32)
	DllCall("RtlMoveMemory","uInt",&res,"uInt",&header,"uInt",headerLength)
	Loop,% headerLength
		if (*(&res-1+a_index)=0) ; Change binary zero to linefeed
			NumPut(Asc("`n"),res,a_index-1,"uChar")
	VarSetCapacity(res,-1)
} else
	res := "timeout"

; Get 1st Line of Full Response
Loop,Parse,res,`n,`r
{
	RetValue := A_LoopField
	break
}

; No Connection established - drop exception
if (RetValue="timeout") {
	html := "Error: timeout"
	return -1
}
; Strip protocol version from return value
RetValue := RegExReplace(RetValue,"HTTP/1\.[01]\s+")

; List taken from http://en.wikipedia.org/wiki/List_of_HTTP_status_codes
HttpRetCodes := "100=continue|101=Switching Protocols|102=Processing (WebDAV) (RFC 2518)|"
. "200=OK|201=Created|202=Accepted|203=Non-Authoritative Information|204=No"
. " Content|205=Reset Content|206=Partial Content|207=Multi-Status (WebDAV)"
. "|300=Multiple Choices|301=Moved Permanently|302=Found|303=See Other|304="
. "Not Modified|305=Use Proxy|306=Switch Proxy|307=Temporary Redirect|400=B"
. "ad Request|401=Unauthorized|402=Payment Required|403=Forbidden|404=Not F"
. "ound|405=Method Not Allowed|406=Not Acceptable|407=Proxy Authentication "
. "Required|408=Request Timeout|409=Conflict|410=Gone|411=Length Required|4"
. "12=Precondition Failed|413=Request Entity Too Large|414=Request-URI Too "
. "Long|415=Unsupported Media Type|416=Requested Range Not Satisfiable|417="
. "Expectation Failed|418=I'm a teapot (RFC 2324)|422=UnProcessable Entity "
. "(WebDAV) (RFC 4918)|423=Locked (WebDAV) (RFC 4918)|424=Failed Dependency"
. " (WebDAV) (RFC 4918)|425=Unordered Collection (RFC 3648)|426=Upgrade Req"
. "uired (RFC 2817)|449=Retry With|500=Internal Server Error|501=Not Implem"
. "ented|502=Bad Gateway|503=Service Unavailable|504=Gateway Timeout|505=HT"
. "TP Version Not Supported|506=Variant Also Negotiates (RFC 2295)|507=Insu"
. "fficient Storage (WebDAV) (RFC 4918)|509=Bandwidth Limit Exceeded|510=No"
. "t Extended (RFC 2774)"

; Gather numeric response value
RetValue := SubStr(RetValue,1,3)

; Parse through return codes and set according informations
Loop,Parse,HttpRetCodes,|
{
	HttpreturnCode := SubStr(A_LoopField,1,3)    ; Numeric return value see above
	HttpreturnMsg  := SubStr(A_LoopField,5)      ; link for additional information
	if (RetValue=HttpreturnCode) {
		RetMsg := HttpreturnMsg
		break
	}
}

; Global HttpQueryOps handling
if StrLen(HTTPQueryOps)>0 {
	; Show full Header response (usefull for debugging)
	if (InStr(HTTPQueryOps,"showHeader"))
		MsgBox % res
	; Save the full Header response in a global Variable
	if (InStr(HTTPQueryOps,"storeHeader"))
		global HttpQueryHeader := res
	; Check for size updates to export to a global Var
	if (InStr(HTTPQueryOps,"updateSize")) {
		Loop,Parse,res,`n
			if RegExMatch(A_LoopField,"Content-Length:\s+?(?P<Size>\d+)",full) {
				global HttpQueryFullSize := fullSize
				break
			}
		if (fullSize+0=0)
			HttpQueryFullSize := "size unavailable"
	}
}

; Check for valid codes and drop exception if suspicious
if !(InStr("100 200 201 202 302",RetValue)) {
	Result := RetValue " " RetMsg
	return StrLen(Result)
}

VarSetCapacity(BytesRead,4,0)
fsize := 0
Loop            ; the receiver loop - rewritten in the need to enable
{               ; support for larger file downloads
	bc := A_Index
	VarSetCapacity(buffer%bc%,1024,0) ; setup new chunk for this receive round
	ReadFile := DllCall("wininet\InternetReadFile"
		,"uInt",hRequest,"uInt",&buffer%bc%,"uInt",1024,"uInt",&BytesRead)
	ReadBytes := NumGet(BytesRead)    ; how many bytes were received?
	if ((ReadFile!=0)&&(!ReadBytes))  ; we have had no error yet and received no more bytes
		break                         ; we must be done! so lets break the receiver loop
	else {
		fsize += ReadBytes            ; sum up all chunk sizes for correct return size
		sizeArray .= ReadBytes "|"
	}
	if (InStr(HTTPQueryOps,"updateSize"))
		Global HttpQueryCurrentSize := fsize
}
sizeArray := SubStr(sizeArray,1,-1)   ; trim last PipeChar

VarSetCapacity( ( dReturn == true ) ? result : p1 ,fSize+1,0)      ; reconstruct the result from above generated chunkblocks
Dest := ( dreturn == true ) ? &result : &p1                 ; to a our ByRef result variable
Loop,Parse,SizeArray,|
DllCall("RtlMoveMemory","uInt",Dest,"uInt",&buffer%A_Index%,"uInt",A_LoopField)
	, Dest += A_LoopField

DllCall("WinINet\InternetCloseHandle", "uInt", hRequest)   ; close all opened
DllCall("WinINet\InternetCloseHandle", "uInt", hInternet)
DllCall("WinINet\InternetCloseHandle", "uInt", hConnect)
DllCall("FreeLibrary", "UInt", hModule)                    ; unload the library

if ( dreturn == true ) {
	VarSetCapacity( result, -1 )
	ErrorLevel := fSize
	return Result
} else
return fSize                      ; return the size - strings need update via VarSetCapacity(res,-1)
}

说明：

这个函数有以下功能:

● 支持URL含有端口

● “用户名:密码@域名”格式的URL

● SSL(https)

● HTTP 报头信息 / Dumping(转储) / Storing(存储)

● 下载进度条界面

● 网络连接处理的标识 (自动跟踪特性等)

● 来源页支持

● 客户端接受到的MIME类型的支持

● 代理支持

● 超时支持

● 自定义浏览器UserAgent

使用方法很简单:

0.3.6版本引入另外一种语法与功能支持。从而简化了功能的使用。长话短说：

如果第一个参数不是空变量且包含有URL，httpquery会直接返回数据，消除了额外varsetcapacity的调用需要。然而旧的语法仍然是可用的和工作，所以使用此功能的脚本都需要进行改变。

记住，当处理二进制数据为压缩文件、下载可执行文件、或图片，我们将第一个参数为空值和第二包含URL。

使用新的语法:

html := httpQUERY(URL:="http://url") 将会返回获取到的html全文,长度为Errorlevel,使用的是GET方式,postparams(POST参数)长度为零。

html := httpQUERY(URL:="http://url",POSTDATA) 将会POST数据如果POSTDATA长度不为0

使用老的语法:

你需要定义一个变量将接收返回的数据缓存。所以VarSetCapacity(buffer,-1)释放内存是有必要的。

httpQUERY(buffer:="",URL) 将会返回长度,第一个参数将会缓存获取到的html全文,使用的是GET方式,postparams(POST参数)长度为零。

httpQUERY(buffer:="",URL,POSTDATA) 将会POST数据如果POSTDATA长度不为0

现在支持以下格式的URL：

<!– m –>http://username:pass… … s#fragment<!– m –>

Since httpQuery has been updated to use InternetCrackURL from winINet, all essential parts will be recognized. so there is no need to set up any additional parameters. Attention: When u need to authetificate in the Website the username / password attempt will not work. u have to submit those parameters via POST or GET method.

Additional Parameters:

To see a dump of the received httpHeaders, there is buildIn support for a global Variable named httpQueryOps. It may consist of one or more Verbs. For now "showHeader", "storeHeader", and "updateSize" verbs are supported. If You use storeHeader the complete Header will be saved in a variable named HttpQueryHeader which will be made global at runtime. The verb updateSize will make two variables globally Available: httpQueryFullSize and httpQueryCurrentSize. An usage example to show a download status indicator is included

以下变量进行全局：

httpAgent:UserAgent，默认是AutoHotkeyScript

httpProxy: 代理,default = 0

httpProxyByPass: 不使用代理的网址列表. default = 0

httpQueryReferer: 来源页

httpQueryAcceptType: 客户端接受到的MIME类型

httpQueryDwFlags: if in need for any special flags for the current connection this is the variable to set (example V shows an useCase for this feat)

示例1 POST数据

url := "http://thinkai.net/test.php"
MsgBox, % httpQUERY(url,"a=1&b=我")

示例2 GET数据

url := "http://thinkai.net/test.php"
MsgBox, % httpQUERY(url "?a=1&b=我")

示例3 下载文件并存储

#noenv
data     := ""
URL      := "http://www.autohotkey.net/programs/AutoHotkey104706.zip"
httpQueryOps := "updateSize"
SetTimer,showSize,10
length   := httpQuery(data,URL)
Tooltip
if (write_bin(data,"ahk.exe",length)!=1)
	MsgBox "出错！"
else
	MsgBox "ahk.zip"已保存!
Return

showSize:
   Tooltip,% HttpQueryCurrentSize "/" HttpQueryFullSize
return

GuiClose:
GuiEscape:
   ExitApp

write_bin(byref bin,filename,size){
   h := DllCall("CreateFile","str",filename,"Uint",0x40000000
            ,"Uint",0,"UInt",0,"UInt",4,"Uint",0,"UInt",0)
   IfEqual h,-1, SetEnv, ErrorLevel, -1
   IfNotEqual ErrorLevel,0,ExitApp ; couldn't create the file
   r := DllCall("SetFilePointerEx","Uint",h,"Int64",0,"UInt *",p,"Int",0)
   IfEqual r,0, SetEnv, ErrorLevel, -3
   IfNotEqual ErrorLevel,0, {
      t = %ErrorLevel%              ; save ErrorLevel to be returned
      DllCall("CloseHandle", "Uint", h)
      ErrorLevel = %t%              ; return seek error
   }
   result := DllCall("WriteFile","UInt",h,"Str",bin,"UInt"
               ,size,"UInt *",Written,"UInt",0)
   h := DllCall("CloseHandle", "Uint", h)
   return, 1
}

#include httpQuery.ahk

示例4 上传图片到Imageshack使用官方（免费）API

; exmpl.imageshack.httpQuery.ahk
; This example uploads an image and constructs a multipart/form-data Type
; for fileuploading and returns the XML which is returned to show the stored Imagepath
	FileSelectFile,image
	FileGetSize,size,%image%
	SplitPath,image,OFN
	FileRead,img,%image%
	VarSetCapacity(placeholder,size,32)
	boundary := makeProperBoundary()
	post:="--" boundary "`ncontent-disposition: form-data; name=""MAX_FILE_SIZE""`n`n"
		. "1048576`n--" boundary "`ncontent-disposition: form-data; name=""xml""`n`nyes`n--"
		. boundary "`ncontent-disposition: form-data; name=""fileupload""; filename="""
		. ofn """`nContent-type: " MimeType(img) "`nContent-Transfer-Encoding: binary`n`n" 
		. placeholder "`n--" boundary "--"
	headers:="Content-type: multipart/form-data, boundary=" boundary "`nContent-Length: " strlen(post)
	DllCall("RtlMoveMemory","uInt",(offset:=&post+strlen(post)-strlen(Boundary)-size-5)
			,"uInt",&img,"uInt",size)
	size := httpQuery(result:="","http://www.imageshack.us/index.php",post,headers)
	VarSetCapacity(result,-1)
	Gui,Add,Edit,w800 h600, % result
	Gui,Show
return

GuiClose:
GuiEscape:
	ExitApp

makeProperBoundary(){
	Loop,26
		n .= chr(64+a_index)
	n .= "0123456789"
	Loop,% StrLen(A_Now) {
		Random,rnd,1,% StrLen(n)
		Random,UL,0,1
		b .= RegExReplace(SubStr(n,rnd,1),".$","$" (round(UL)? "U":"L") "0")
	}
	Return b
}

MimeType(ByRef Binary) {
	MimeTypes:="424d image/bmp|4749463 image/gif|ffd8ffe image/jpeg|89504e4 image/png|4657530"
			 . " application/x-shockwave-flash|49492a0 image/tiff"
	@:="0123456789abcdef"
	Loop,8
		hex .= substr(@,(*(a:=&Binary-1+a_index)>>4)+1,1) substr(@,((*a)&15)+1,1)
	Loop,Parse,MimeTypes,|
		if ((substr(hex,1,strlen(n:=RegExReplace(A_Loopfield,"\s.*"))))=n) 
			Mime := RegExReplace(A_LoopField,".*?\s")
	Return (Mime!="") ? Mime : "application/octet-stream"
}

#include httpQuery.ahk

更多示例详见顶部来源

字符串MD5生成 Autohotkey 4172

作者为 thinkai 于 2015年1月15日发表

Autohotkey

MD5

Clipboard := MD5("mypassword")

MD5(string, encoding = "UTF-8")
{
    return CalcStringHash(string, 0x8003, encoding)
}

; CalcAddrHash ======================================================================
CalcAddrHash(addr, length, algid, byref hash = 0, byref hashlength = 0)
{
    static h := [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "e", "f"]
    static b := h.minIndex()
    hProv := hHash := o := ""
    if (DllCall("advapi32\CryptAcquireContext", "Ptr*", hProv, "Ptr", 0, "Ptr", 0, "UInt", 24, "UInt", 0xf0000000))
    {
        if (DllCall("advapi32\CryptCreateHash", "Ptr", hProv, "UInt", algid, "UInt", 0, "UInt", 0, "Ptr*", hHash))
        {
            if (DllCall("advapi32\CryptHashData", "Ptr", hHash, "Ptr", addr, "UInt", length, "UInt", 0))
            {
                if (DllCall("advapi32\CryptGetHashParam", "Ptr", hHash, "UInt", 2, "Ptr", 0, "UInt*", hashlength, "UInt", 0))
                {
                    VarSetCapacity(hash, hashlength, 0)
                    if (DllCall("advapi32\CryptGetHashParam", "Ptr", hHash, "UInt", 2, "Ptr", &hash, "UInt*", hashlength, "UInt", 0))
                    {
                        loop % hashlength
                        {
                            v := NumGet(hash, A_Index - 1, "UChar")
                            o .= h[(v >> 4) + b] h[(v & 0xf) + b]
                        }
                    }
                }
            }
            DllCall("advapi32\CryptDestroyHash", "Ptr", hHash)
        }
        DllCall("advapi32\CryptReleaseContext", "Ptr", hProv, "UInt", 0)
    }
    return o
}

; CalcStringHash ====================================================================
CalcStringHash(string, algid, encoding = "UTF-8", byref hash = 0, byref hashlength = 0)
{
    chrlength := (encoding = "CP1200" || encoding = "UTF-16") ? 2 : 1
    length := (StrPut(string, encoding) - 1) * chrlength
    VarSetCapacity(data, length, 0)
    StrPut(string, &data, floor(length / chrlength), encoding)
    return CalcAddrHash(&data, length, algid, hash, hashlength)
}

摘自HashCalc http://www.autohotkey.com/board/topic/86157-hashgenerator-with-verify-md2-md5-sha1-sha2-hmac

URLDownloadToVar_POST&GET并返回到变量 Autohotkey 4134

作者为 thinkai 于 2015年1月5日发表

Autohotkey

get • post • WinHttp.WinHttpRequest.5.1

这个函数改自http://www.autohotkey.com/board/topic/101686-objectresponsetext-error/#entry667257

实现的是免文件读写下载网页代码

;示例1 POST数据
url := "http://thinkai.net/test.php"
MsgBox, % URLDownloadToVar(url,"utf-8","POST","a=1&b=2")

;示例2 GET数据
url := "http://thinkai.net/test.php"
MsgBox, % URLDownloadToVar(url "?config=设置","utf-8","GET")

URLDownloadToVar(url, Encoding = "",Method="GET",postData=""){ ;网址，编码,请求方式，post数据
	hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
	try
	{
		hObject.SetTimeouts(30000,30000,1200000,1200000)
		hObject.Open(Method,url,(Method="POST" ? True : False))
		hObject.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		if IsObject(headers)
		{
			for k,v in headers
				hObject.SetRequestHeader(k, v)
		}
		hObject.Send(postData)
		if (Method="POST")
			hObject.WaitForResponse(-1)
	}
	catch e
		return -1
	if (Encoding && hObject.ResponseBody)
	{
		oADO := ComObjCreate("adodb.stream")
		oADO.Type := 1
		oADO.Mode := 3
		oADO.Open()
		oADO.Write(hObject.ResponseBody)
		oADO.Position := 0
		oADO.Type := 2
		oADO.Charset := Encoding
		return oADO.ReadText(), oADO.Close()
	}
	return hObject.ResponseText
}

Excel维语汉语数据分离(通过姓名) Autohotkey 10266

作者为 thinkai 于 2014年11月24日发表

Autohotkey

#MaxMem 1024
#NoTrayIcon
#SingleInstance, force
gui, add, button, x0 y0 w300 h42 gget, 复制Excel表格数据后点此分析生成
gui, show, , 维汉语筛选区分工具
Return

get:
;转化为数组
;初始化
ExcelObj := {}
;获取
Clip_now := Clipboard
;转化成数组
if (InStr(Clip_now, "`t"))
{
	StringReplace, Clip_now, Clip_now, `r, , All
	StringSplit, line, Clip_now, `n
	Loop % line0
	{
		tmp_line := line%A_Index%
		y_id := A_Index
		if tmp_line
		{
			StringSplit, var, tmp_line, `t
			Loop % var0
			{
				tmp_var := var%A_Index%
				x_id := A_index
				ExcelObj[y_id,x_id] := tmp_var
			}
		}
	}
}

InputBox, title, 提示, 请输入一个名称！
if title =
	title = 未命名
if !isobject(ExcelObj)
{
	MsgBox, 48, 错误, 您未粘贴EXCEL数据！
	Return
}
;横向纵向最列数   后面不会用到
x_max := ExcelObj[1].Maxindex()
y_max := ExcelObj.Maxindex()
outf =
id=0
;生成选择的下拉菜单
for k,v in  ExcelObj[1]
{
	id++
	outf .= outf ? "|" id "【" v "】" : id "【" v "】"
}
gui, 2:add, DropDownList, x0 y0 w300 h400 vchoose, %outf%
gui, 2:add, button, x0 y20 w300 h20 gok, 确定
gui, 2:show, ,请选择姓名所在字段！
Return

ok:
GuiControlGet, choose
if choose =
{
	MsgBox, 48, 错误, 您为选择姓名所在字段！
	Return
}
SplashTextOn, 200, 20, 提示, 分析生成中！
gui, 2:Destroy
;分割所选
StringSplit, v, choose, 【,
;姓名所在列id
ziduan = %v1%
goto, goon
Return

goon:
hanyu_data =
uyghur_data =
idx = 0
;
for k,v in ExcelObj
{
idx++
key := ExcelObj[idx][ziduan]
StringReplace, key, key, %A_Space%, , All
key := RegExReplace(key,"(\.|。|·)$","")
;汉字姓氏开头
if RegExMatch(key,"^(赵|钱|孙|李|周|吴|郑|王|冯|陈|褚|卫|蒋|沈|韩|杨|朱|秦|尤|许|何|吕|施|张|孔|曹|严|华|金|魏|陶|姜|戚|谢|邹|喻|柏|水|窦|章|云|苏|潘|葛|奚|范|彭|郎|鲁|韦|昌|马|苗|凤|花|方|俞|任|袁|柳|酆|鲍|史|唐|费|廉|岑|薛|雷|贺|倪|汤|滕|殷|罗|毕|郝|邬|安|常|乐|于|时|傅|皮|卞|齐|康|伍|余|元|卜|顾|孟|平|黄|和|穆|萧|尹|姚|邵|湛|汪|祁|毛|禹|狄|米|贝|明|臧|计|伏|成|戴|谈|宋|茅|庞|熊|纪|舒|屈|项|祝|董|梁|杜|阮|蓝|闵|席|季|麻|强|贾|路|娄|危|江|童|颜|郭|梅|盛|林|刁|钟|徐|邱|骆|高|夏|蔡|田|樊|胡|凌|霍|虞|万|支|柯|咎|管|卢|莫|经|房|裘|缪|干|解|应|宗|宣|丁|贲|邓|郁|单|杭|洪|包|诸|左|石|崔|吉|钮|龚|程|嵇|邢|滑|裴|陆|荣|翁|荀|羊|於|惠|甄|魏|加|封|芮|羿|储|靳|汲|邴|糜|松|井|段|富|巫|乌|焦|巴|弓|牧|隗|山|谷|车|侯|宓|蓬|全|郗|班|仰|秋|仲|伊|宫|宁|仇|栾|暴|甘|钭|厉|戎|祖|武|符|刘|姜|詹|束|龙|叶|幸|司|韶|郜|黎|蓟|薄|印|宿|白|怀|蒲|台|从|鄂|索|咸|籍|赖|卓|蔺|屠|蒙|池|乔|阴|郁|胥|能|苍|双|闻|莘|党|翟|谭|贡|劳|逄|姬|申|扶|堵|冉|宰|郦|雍|却|璩|桑|桂|濮|牛|寿|通|边|扈|燕|冀|郏|浦|尚|农|温|别|庄|晏|柴|瞿|阎|充|慕|连|茹|习|宦|艾|鱼|容|向|古|易|慎|戈|廖|庚|终|暨|居|衡|步|都|耿|满|弘|匡|国|文|寇|广|禄|阙|东|殴|殳|沃|利|蔚|越|夔|隆|师|巩|厍|聂|晁|勾|敖|融|冷|訾|辛|阚|那|简|饶|空|曾|毋|沙|乜|养|鞠|须|丰|巢|关|蒯|相|查|后|江|红|游|竺|权|逯|盖|益|桓|公|万|俟|司马|上官|欧阳|夏侯|诸葛|闻人|东方|赫连|皇甫|尉迟|公羊|澹台|公冶|宗政|濮阳|淳于|仲孙|太叔|申屠|公孙|乐正|轩辕|令狐|钟离|闾丘|长孙|慕容|鲜于|宇文|司徒|司空|亓官|司寇|仉督|子车|颛孙|端木|巫马|公西|漆雕|乐正|壤驷|公良|拓拔|夹谷|宰父|谷粱|晋楚|阎法|汝鄢|涂钦|段干|百里|东郭|南门|呼延|归海|羊舌|微生|岳帅|缑亢|况后|有琴|梁丘|左丘|东门|西门|商牟|佘佴|伯赏|南宫|墨哈|谯笪|年爱|阳佟|第五|言福).*")
{
	tmp_line =
	for a,b in ExcelObj[idx]
		tmp_line .= tmp_line ? "," b : b
	hanyu_data .= hanyu_data ? "`n" tmp_line : tmp_line
}
;维语名字关键词
Else if key Contains 阿巴,阿卜,阿不,阿布,阿达,阿迪,阿地,阿尔,阿洪,阿吉,阿勒,阿里,阿力,阿丽,阿曼,阿米,阿娜,阿西,阿依,阿克,努尔,阿依,曼孜,沙吾,喀拉,阿拜,别克,迈尔,迈尔,扎提,艾伟,帕,霍尔,艾伟,阿依,夏姆,阿依,乌力,夏木,阿依,谢姆,阿扎,提,艾尔,艾海,提,艾合,艾科,拜尔,艾克,巴尔,艾拉,艾勒,坎木,艾里,艾力,凯木,艾尼,瓦尔,艾萨,艾散,艾沙,艾山,艾依,艾则,孜,艾孜,安拉,安外,奥斯,巴哈,巴克,巴拉,巴图,巴土,巴依,拜合,亚尔,包尔,布里,布力,布威,布韦,布维,达尼,达瓦,达伍,托科,达吾,迪里,迪丽,热巴,迪亚,额敏,古海,古丽,罕,娜尔,斯坦,苏如,苏茹,扎尔,扎热,古再,古赞,果海,哈迪,哈尔,哈古,哈基,哈克,哈里,哈丽,哈力,哈米,哈热,哈斯,哈孜,海力,且木,海丽,且姆,罕,扎代,赫克,买提,赫克木,赫木热,吉利力,吉乃,斯太,加马力,贾马力,杰力力,居尔,艾提,居玛,居麦,居热,喀迪,喀日,喀斯,喀伍,卡,佧马力,佧米力,开萨尔,凯赛尔,坎吉,坎曼尔,柯日木,柯则,柯孜,克热木,克孜,库尔班,阔其,喀尔,玛斯,买买提,麦尔,麦合,麦吉,麦丽,麦买,买买,买卖,麦麦,麦苏木,毛拉,莫敏,莫明,姆,穆巴,热科,穆巴,热克,穆海,麦提,穆罕,买提,穆合,塔尔,穆坎,妲斯,穆萨,穆台,力甫,穆太,力普,木丽,德尔,穆再,排尔,娜扎,开提,乃比,南比,妮尕尔,妮萨,尼格尔,尼加提,尼鲁,尼露,尼萨,尼莎,尼牙孜,尼亚孜,尼叶蒂,尼扎木,努尔,努斯,热提,则力,帕,孜力,皮达,普拉提,齐曼,奇曼,乔力潘,乔丽番,乔丽潘,冉娜,热合曼,热赫木,热杰普,热介甫,热克甫,热娜,热依罕,热依汉,热扎克,热孜宛,热孜婉,肉索力,肉孜,如苏力,如孜,茹仙,萨阿,代提,萨巴,海提,萨比尔,萨比提,萨迪克,萨拉,买提,萨拉,麦提,萨拉木,萨吾提,萨依提,赛尔旦,赛福鼎,赛娜瓦尔,赛乃姆,赛乃木,赛排尔,赛皮丁,赛依提,色提,瓦力迪,色依提,沙巴海提,沙比尔,沙比提,沙拉买提,沙吾提,沙依提,司的克,斯拉木,苏里唐,苏力坦,苏皮,塔吉古丽,塔里甫,塔力甫,塔力普,塔西布拉克,塔依,坦吾皮克,提拉,提力瓦力迪,铁木尔,图尔,吐,托合提,瓦力斯,瓦热斯,维力,乌齐坤,乌图克,吾,吾守尔,吾吐克,吴尔凯西,西力甫,西热甫,西仁,希林,希仁,夏热拜提,仙拜,鲜拜,肖开特,肖开提,谢力甫,谢木斯,谢热甫,秀库尔,许库尔,雪合,拉提,来提,牙力昆,雅库甫,亚库,亚里坤,亚力坤,尧乐,博斯,尧勒,巴斯,伊巴,代提,伊禅,伊盖,伊里,哈木,依力,伊力,伊马木,伊敏,伊纳耶提,伊排提,伊善,伊斯拉哈提,伊斯拉木,依干拜尔迪,依明,吐尔,尤丽吐孜,玉丽吐孜,玉素甫,玉孜,叶尔,约麦尔,约日耶提,哈斯德尔,再乃甫,再乃普,扎伊提,罗提,布拉,孜,孜巴,孜亚,祖合热,祖姆,祖木,佐合热
{
	tmp_line =
	for a,b in ExcelObj[idx]
		tmp_line .= tmp_line ? "," b : b
	uyghur_data .= uyghur_data ? "`n" tmp_line : tmp_line
}
;中间带点
Else if RegExMatch(key,".*(\.|。|·).*")
{
	tmp_line =
	for a,b in ExcelObj[idx]
		tmp_line .= tmp_line ? "," b : b
	uyghur_data .= uyghur_data ? "`n" tmp_line : tmp_line
}
Else
{
{
	tmp_line =
	for a,b in ExcelObj[idx]
		tmp_line .= tmp_line ? "," b : b
	hanyu_data .= hanyu_data ? "`n" tmp_line : tmp_line
}
}
}
FileCreateDir, %A_ScriptDir%\%title%\
FileAppend, %uyghur_data%, %A_ScriptDir%\%title%\%title%_维语_%A_Now%.csv
FileAppend, %hanyu_data%, %A_ScriptDir%\%title%\%title%_汉语_%A_Now%.csv
SplashTextOff
MsgBox, 64, 提示, 已经分析生成完成！将会为您打开所在文件夹！
content =
run, %A_ScriptDir%\%title%\
Return


GuiClose:
ExitApp

EXCEL分维汉语数据.zip

Socket套接字后台服务器和客户端 Autohotkey 7794

作者为 thinkai 于 2014年11月9日发表

Autohotkey

socket • 套接字

因工作需要使用Asterisk AMI接口，是套接字连接方式的，用php单线程不好用，所以找了一下资料，改动下成后台静默模式，当然你也可以自己改有界面的。

服务器Server:

;thinkai@2014-11-08
;Based on http://www.autohotkey.com/board/topic/29650-tcpip-serverclient-chat-script-w-features
#singleinstance force
OnExit, exit
;创建窗口以接收数据
Gui, add, Edit
gui, hide
;ip和端口
Network_Address = 0.0.0.0
Network_Port = 1000
;准备传入连接
socket := PrepareForIncomingConnection(Network_Address, Network_Port)
if socket = -1
    ExitApp
Process, Exist
;获取窗口句柄
DetectHiddenWindows On
ScriptMainWindowId := WinExist("ahk_class AutoHotkey ahk_pid " . ErrorLevel)
DetectHiddenWindows Off
NotificationMsg = 0x5555
;设置接收消息的函数
OnMessage(NotificationMsg, "ReceiveData")
FD_READ = 1
FD_CLOSE = 32
FD_CONNECT = 20
if DllCall("Ws2_32\WSAAsyncSelect", "UInt", socket, "UInt", ScriptMainWindowId, "UInt", NotificationMsg, "Int", FD_READ|FD_CONNECT)
{
    MsgBox % "WSAAsyncSelect() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError")
    ExitApp
}
;循环获取新连入客户端
i=1
Loop
{
    VarSetCapacity(SocketAddress, SizeOfSocketAddress:=16)
    ;Socket连接
    conectioncheck%i% := DllCall("Ws2_32\accept", "UInt", socket, "UInt", &SocketAddress, "Int*", SizeOfSocketAddress)
    if conectioncheck%i% != -1
    {
        ;该客户端连接对象为conectioncheck%i% 发送数据时需要
        ;客户端IP:端口 xxx.xxx.xxx.xxx:xxxx
        peername := DllCall("Ws2_32\inet_ntoa", "uint", NumGet(SocketAddress,4), "str")
            . ":" NumGet(SocketAddress,2,"ushort")
        ;发送欢迎信息
        SendData(conectioncheck%i%,"欢迎" peername)
        i++
    }
    sleep 500
}
return

;给所有客户端发消息
sendall:
Loop %i% {
   SendData(conectioncheck%A_Index%,SendText)
}
SendText=
return


;准备传入连接函数
PrepareForIncomingConnection(IPAddress, Port)
{
    VarSetCapacity(wsaData, 32)
    result := DllCall("Ws2_32\WSAStartup", "UShort", 0x0002, "UInt", &wsaData) ; Request Winsock 2.0 (0x0002)

    if ErrorLevel
    {
        MsgBox WSAStartup() could not be called due to error %ErrorLevel%. Winsock 2.0 or higher is required.
        return -1
    }
    if result
    {
        MsgBox % "WSAStartup() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError")
        return -1
    }

    AF_INET = 2
    SOCK_STREAM = 1
    IPPROTO_TCP = 6
    socket := DllCall("Ws2_32\socket", "Int", AF_INET, "Int", SOCK_STREAM, "Int", IPPROTO_TCP)
    if socket = -1
    {
        MsgBox % "socket() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError")
        return -1
    }


    SizeOfSocketAddress = 16
    VarSetCapacity(SocketAddress, SizeOfSocketAddress)
    InsertInteger(2, SocketAddress, 0, AF_INET)   ; sin_family
    InsertInteger(DllCall("Ws2_32\htons", "UShort", Port), SocketAddress, 2, 2)   ; sin_port
    InsertInteger(DllCall("Ws2_32\inet_addr", "Str", IPAddress), SocketAddress, 4, 4)   ; sin_addr.s_addr

    if DllCall("Ws2_32\bind", "UInt", socket, "UInt", &SocketAddress, "Int", SizeOfSocketAddress)
    {
        MsgBox % "bind() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError") . "?"
        return -1
    }
    if DllCall("Ws2_32\listen", "UInt", socket, "UInt", "SOMAXCONN")
    {
        MsgBox % "LISTEN() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError") . "?"
        return -1
    }
    return socket
}

;接收消息函数
ReceiveData(wParam, lParam)
{
Critical
   global ShowRecieved
    socket := wParam
    ReceivedDataSize = 4096
    Loop
    {
        VarSetCapacity(ReceivedData, ReceivedDataSize, 0)
        ReceivedDataLength := DllCall("Ws2_32\recv", "UInt", socket, "Str", ReceivedData, "Int", ReceivedDataSize, "Int", 0)
        if ReceivedDataLength = -1
        {
            WinsockError := DllCall("Ws2_32\WSAGetLastError")
            if WinsockError = 10035
                return 1
            if WinsockError <> 10054

MsgBox % "recv() indicated Winsock error " . WinsockError
ExitApp
        }
    ;addmsg(ReceivedData)
    ;此处已获取到消息
    MsgBox % ReceivedData
    }
    return 1
}

;发送消息函数
SendData(wParam,SendData)
{
socket := wParam
SendDataSize := VarSetCapacity(SendData)
SendDataSize += 1
sendret := DllCall("Ws2_32\send", "UInt", socket, "Str", SendData, "Int", SendDatasize, "Int", 0)
}



InsertInteger(pInteger, ByRef pDest, pOffset = 0, pSize = 4)
{
    Loop %pSize%
        DllCall("RtlFillMemory", "UInt", &pDest + pOffset + A_Index-1, "UInt", 1, "UChar", pInteger >> 8*(A_Index-1) & 0xFF)
}


CloseSocket(Socket)
{
    Result := DllCall("Ws2_32\closesocket"
                       , "UInt", Socket)
    Return result
}


exit:
;清除连接
Loop %i% {
   CloseSocket(conectioncheck%A_Index%)
}
DllCall("Ws2_32\WSACleanup")
ExitApp

客户端Client：

;thinkai@2014-11-08
;Based on http://www.autohotkey.com/board/topic/29650-tcpip-serverclient-chat-script-w-features
#singleinstance force
OnExit, exit
;创建窗口以接收数据
Gui, add, Edit
Gui, hide
;客户端名称 服务器地址 端口
ClientName=%A_Computername%
Network_Address = 135.230.71.250
Network_Port = 1000
;连接到服务器
socket := ConnectToAddress(Network_Address, Network_Port)
if socket = -1
    ExitApp
;获取窗口句柄
Process, Exist
DetectHiddenWindows On
ScriptMainWindowId := WinExist("ahk_class AutoHotkey ahk_pid " . ErrorLevel)
DetectHiddenWindows Off
;获取窗口句柄
NotificationMsg = 0x5555  ; An arbitrary message number, but should be greater than 0x1000.
OnMessage(NotificationMsg, "ReceiveData")
FD_READ = 1     ; Received when data is available to be read.
FD_CLOSE = 32   ; Received when connection has been closed.
if DllCall("Ws2_32\WSAAsyncSelect", "UInt", socket, "UInt", ScriptMainWindowId, "UInt", NotificationMsg, "Int", FD_READ|FD_CLOSE)
{
    MsgBox % "WSAAsyncSelect() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError")
    ExitApp
}
;发送连接好消息
SendData(socket,ClientName " Login!")
return

;发送消息
send:
SendData(socket,SendText)
SendText =
return

;连接服务器函数
ConnectToAddress(IPAddress, Port)
{
    VarSetCapacity(wsaData, 32)
    result := DllCall("Ws2_32\WSAStartup", "UShort", 0x0002, "UInt", &wsaData)
    if ErrorLevel
    {
        MsgBox WSAStartup() could not be called due to error %ErrorLevel%. Winsock 2.0 or higher is required.
        return -1
    }
    if result
    {
        MsgBox % "WSAStartup() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError")
        return -1
    }

    AF_INET = 2
    SOCK_STREAM = 1
    IPPROTO_TCP = 6
    socket := DllCall("Ws2_32\socket", "Int", AF_INET, "Int", SOCK_STREAM, "Int", IPPROTO_TCP)
    if socket = -1
    {
        MsgBox % "socket() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError")
        return -1
    }


    SizeOfSocketAddress = 16
    VarSetCapacity(SocketAddress, SizeOfSocketAddress)
    InsertInteger(2, SocketAddress, 0, AF_INET)
    InsertInteger(DllCall("Ws2_32\htons", "UShort", Port), SocketAddress, 2, 2)
    InsertInteger(DllCall("Ws2_32\inet_addr", "Str", IPAddress), SocketAddress, 4, 4)


    if DllCall("Ws2_32\connect", "UInt", socket, "UInt", &SocketAddress, "Int", SizeOfSocketAddress)
    {
        MsgBox % "connect() indicated Winsock error " . DllCall("Ws2_32\WSAGetLastError") . "?"
        return -1
    }
    return socket
}

;接收函数
ReceiveData(wParam, lParam)
{
Critical
   global ShowRecieved
    socket := wParam
    ReceivedDataSize = 4096
    Loop
    {
        VarSetCapacity(ReceivedData, ReceivedDataSize, 0)
        ReceivedDataLength := DllCall("Ws2_32\recv", "UInt", socket, "Str", ReceivedData, "Int", ReceivedDataSize, "Int", 0)
        if ReceivedDataLength = 0
            ExitApp
        if ReceivedDataLength = -1
        {
            WinsockError := DllCall("Ws2_32\WSAGetLastError")
            if WinsockError = 10035
                return 1
            if WinsockError <> 10054

              MsgBox % "recv() indicated Winsock error " . WinsockError
            ExitApp
        }
		;ReceivedData
    }
    return 1
}

;发送函数
SendData(wParam,SendData)
{
socket := wParam
SendDataSize := VarSetCapacity(SendData)
SendDataSize += 1
sendret := DllCall("Ws2_32\send", "UInt", socket, "Str", SendData, "Int", SendDatasize, "Int", 0)
}

InsertInteger(pInteger, ByRef pDest, pOffset = 0, pSize = 4)

{
    Loop %pSize%
        DllCall("RtlFillMemory", "UInt", &pDest + pOffset + A_Index-1, "UInt", 1, "UChar", pInteger >> 8*(A_Index-1) & 0xFF)
}


CloseSocket(Socket)
{
    Result := DllCall("Ws2_32\closesocket"
                       , "UInt", Socket)
    Return result
}


GuiClose:
exit:
;清除连接
CloseSocket(socket)
DllCall("Ws2_32\WSACleanup")
ExitApp

11 • 17
8
9
10
11
12
13
14

Autohotkey|Python|php|aardio|VOIP|IT 爱好者

Centos6安装STUN服务器 8832

作者为 thinkai 于 2015年4月9日发表

Linux • VOIP

nat • stun

php smtp&pop3收发邮件代码 2450

作者为 thinkai 于 2015年3月23日发表

网站建设

评论功能已被关闭。

CDO.Message 发邮件 Autohotkey 5730

作者为 thinkai 于 2015年3月23日发表

Autohotkey

smtp

评论功能已被关闭。

文件与十六进制显示值互转 Autohotkey 4614

作者为 thinkai 于 2015年3月18日发表

Autohotkey

hex • 文件对象

评论功能已被关闭。

售后CRM定时客户关怀提醒 Autohotkey 3183

作者为 thinkai 于 2015年2月23日发表

Autohotkey

CRM • 定时

评论功能已被关闭。

httpQuery——强大的网络下载函数 Autohotkey 5555

作者为 thinkai 于 2015年1月15日发表

Autohotkey • 网站建设

download • get • post • UserAgent

字符串MD5生成 Autohotkey 4172

作者为 thinkai 于 2015年1月15日发表

Autohotkey

MD5

URLDownloadToVar_POST&GET并返回到变量 Autohotkey 4134

作者为 thinkai 于 2015年1月5日发表

Autohotkey

get • post • WinHttp.WinHttpRequest.5.1

Excel维语汉语数据分离(通过姓名) Autohotkey 10266

作者为 thinkai 于 2014年11月24日发表

Autohotkey

Socket套接字后台服务器和客户端 Autohotkey 7794

作者为 thinkai 于 2014年11月9日发表

Autohotkey

socket • 套接字

2025年三月
一	二	三	四	五	六	日
« 八
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31

Thinkai's Blog

Autohotkey|Python|php|aardio|VOIP|IT 爱好者

Centos6安装STUN服务器 8832

作者为 thinkai 于 2015年4月9日 发表 Linux • VOIP nat • stun

php smtp&pop3收发邮件代码 2450

作者为 thinkai 于 2015年3月23日 发表 网站建设

评论功能已被关闭。

CDO.Message 发邮件 Autohotkey 5730

作者为 thinkai 于 2015年3月23日 发表 Autohotkey smtp

评论功能已被关闭。

文件与十六进制显示值互转 Autohotkey 4614

作者为 thinkai 于 2015年3月18日 发表 Autohotkey hex • 文件对象

评论功能已被关闭。

售后CRM定时客户关怀提醒 Autohotkey 3183

作者为 thinkai 于 2015年2月23日 发表 Autohotkey CRM • 定时

评论功能已被关闭。

httpQuery——强大的网络下载函数 Autohotkey 5555

作者为 thinkai 于 2015年1月15日 发表 Autohotkey • 网站建设 download • get • post • UserAgent

字符串MD5生成 Autohotkey 4172

作者为 thinkai 于 2015年1月15日 发表 Autohotkey MD5

URLDownloadToVar_POST&GET并返回到变量 Autohotkey 4134

作者为 thinkai 于 2015年1月5日 发表 Autohotkey get • post • WinHttp.WinHttpRequest.5.1

Excel维语汉语数据分离(通过姓名) Autohotkey 10266

作者为 thinkai 于 2014年11月24日 发表 Autohotkey

Socket套接字后台服务器和客户端 Autohotkey 7794

作者为 thinkai 于 2014年11月9日 发表 Autohotkey socket • 套接字

作者为 thinkai 于 2015年4月9日发表

Linux • VOIP

nat • stun

作者为 thinkai 于 2015年3月23日发表

网站建设

作者为 thinkai 于 2015年3月23日发表

Autohotkey

smtp

作者为 thinkai 于 2015年3月18日发表

Autohotkey

hex • 文件对象

作者为 thinkai 于 2015年2月23日发表

Autohotkey

CRM • 定时

作者为 thinkai 于 2015年1月15日发表

Autohotkey • 网站建设

download • get • post • UserAgent

作者为 thinkai 于 2015年1月15日发表

Autohotkey

MD5

作者为 thinkai 于 2015年1月5日发表

Autohotkey

get • post • WinHttp.WinHttpRequest.5.1

作者为 thinkai 于 2014年11月24日发表

Autohotkey

作者为 thinkai 于 2014年11月9日发表

Autohotkey

socket • 套接字