Thinkai's Blog

想学习autohotkey和sqlite数据库配合的使用，从ahk论坛找了相应资料，并使用QC归属地第三方2014年10月的最新归属地数据，做成了一个ahk离线查询归属地的函数。实际下载代码已经内置了Class_SQLiteDB

#NoEnv
#Include Class_SQLiteDB.ahk
;初始化连接数据库 以便反复查询
DBFileName := A_ScriptDir . "\areacode.db"
DB := new SQLiteDB
If !DB.OpenDB(DBFileName) {
   MsgBox, 16, SQLite错误, % "消息:`t" . DB.ErrorMsg . "`n代码:`t" . DB.ErrorCode
   ExitApp
}

;示例
;start := A_TickCount
;MsgBox % "号码：01012345678 归属地："get_area("01012345678") " 查询耗时：" A_TickCount - start "毫秒"
;MsgBox % get_area("95533")
;MsgBox % get_area("02340820000")
;MsgBox % c := get_area("13800138000")
InputBox, phone, 归属地查询, 请输入号码
if phone
{
   start := A_TickCount
   MsgBox % "号码：" phone " 归属地："get_area(phone) " 查询耗时：" A_TickCount - start "毫秒"
}
ExitApp


get_area(phone){
global DB ;全局
;去国家代码
phone := RegExReplace(phone,"^\+86","")
phone := RegExReplace(phone,"^0086","")
;去长途代码
phone := RegExReplace(phone,"^0","")
;组织查询语句
SQL := "SELECT * FROM area where code='" SubStr(phone,1,7) "' or code='" SubStr(phone,1,6) "' or code='" SubStr(phone,1,5) "' or code='" SubStr(phone,1,4) "' or code='" SubStr(phone,1,3) "' or code='" SubStr(phone,1,2) "'  order by code desc LIMIT 1"
If !DB.GetTable(SQL, Result)
   MsgBox, 16, SQLite错误: 获取结果, % "消息:`t" . DB.ErrorMsg . "`n代码:`t" . DB.ErrorCode
Result.Next(Row)
If (Result.HasRows) {
   Return Row[2] "-" Row[3]
}
}

归属地快速查询SQLite_Ahk.zip

pcname = PC-%A_Now% ;计算机名
ip = 192.168.1.2
mask = 255.255.255.0 ;子网掩码
gateway = 192.168.1.1 ;默认网关
dns = 114.114.114.114 ;DNS

;计算机名部分
RegWrite, REG_SZ, HKLM, SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName, ComputerName, %pcname%
RegWrite, REG_SZ, HKLM, SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName, ActiveComputerName, %pcname%
RegWrite, REG_SZ, HKLM, ControlSet002\Control\ComputerName\ComputerName, ComputerName, %pcname%
RegWrite, REG_SZ, HKLM, SYSTEM\CurrentControlSet\Services\Tcpip\Parameters, NV Hostname, %pcname%
RegWrite, REG_SZ, HKLM, SYSTEM\CurrentControlSet\Services\Tcpip\Parameters, Hostname, %pcname%
RegWrite, REG_SZ, HKU, S-1-5-18\Software\Microsoft\Windows\ShellNoRoam, , %pcname%
RegWrite, REG_SZ, HKLM, SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName, ActiveComputerName, %pcname%
RegWrite, REG_SZ, HKLM, SYSTEM\ControlSet001\Services\Tcpip\Parameters, Hostname, %pcname%
RegWrite, REG_SZ, HKLM, SYSTEM\ControlSet001\Services\Tcpip\Parameters, NV Hostname, %pcname%
RegWrite, REG_SZ, HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, DefaultDomainName, %pcname%
RegWrite, REG_SZ, HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, AltDefaultDomainName, %pcname%

;IP部分
runwait, %ComSpec% /c netsh interface ip set address name=`"本地连接`" source=static addr=%ip% mask=%mask% gateway=%gateway% gwmetric=10, , Hide
RunWait, %ComSpec% /c netsh interface ip set dns name=`"本地连接`" source=static addr=%dns% , ,Hide

MsgBox, Ok

run, explorer.exe /e`,/select`,`"a:\`" ;你的路径

if 0 > 0
	{
	Loop %0%
	{
	line = % %A_index%
	SplitPath, line, , dir, , name
	FileGetTime, time, %line%, ;获取文件时间
	if RegExMatch(name,".*(昌吉|巴州|和田|阿勒泰|塔城|奎屯|克州|博州|伊犁|哈密|喀什|克拉玛依|乌鲁木齐|石河子|阿克苏|吐鲁番).*")>0 ;包含指定词
		{
		area := RegExReplace(name,".*(昌吉|巴州|和田|阿勒泰|塔城|奎屯|克州|博州|伊犁|哈密|喀什|克拉玛依|乌鲁木齐|石河子|阿克苏|吐鲁番).*","$1")
		}
	Else
		area = 未知地区
	if RegExMatch(name,".*(动彩|天翼阅读|爱音乐|爱游戏|民语高级会员|环球时报|天翼视讯|彩铃|交通秘书).*")>0
		{
		business := RegExReplace(name,".*(动彩|天翼阅读|爱音乐|爱游戏|民语高级会员|环球时报|天翼视讯|彩铃|交通秘书).*","$1")
		}
	Else
		business = 未知地区
	Loop
	{
	IfExist, %dir%\%area%_%business%_%time%.xls
		time+=1
	Else
		{
		FileMove, %line%, %dir%\%area%_%business%_%time%.xls
		Break
		}
	}
	}
	}
MsgBox, 64, 提示, 完成！

变量版：

Gui, Add, MonthCal, x0 y0 w230 h180 vMyCalendar
Gui, Add, MonthCal, x230 y0 w230 h180 vMyCalendar2
gui, add, button, x0 y180 w230 h20 gcalc, 计算
Gui, Show
m01=31
m02=28
m03=31
m04=30
m05=31
m06=30
m07=31
m08=31
m09=30
m10=31
m11=30
m12=31
Return

calc:
GuiControlGet, MyCalendar
GuiControlGet, MyCalendar2

formattime, date1, %MyCalendar%, yyyyMMdd
formattime, date2, %MyCalendar2%, yyyyMMdd

diff := date1-date2
if diff = 0
	{
	datediff_year := 0
	datediff_month := 0
	datediff_day := 0
	goto, show
	}
Else
	{
	if diff < 0
		{
		newdate := date2
		olddate := date1
		}
	Else
		{
		newdate := date1
		olddate := date2
		}

	formattime, newyear, %newdate%, yyyy
	formattime, newmonth, %newdate%, MM
	formattime, newday, %newdate%, dd
	formattime, oldyear, %olddate%, yyyy
	formattime, oldmonth, %olddate%, MM
	formattime, oldday, %olddate%, dd

	datediff_year := newyear-oldyear

	newmd = %newmonth%%newday%
	oldmd = %oldmonth%%oldday%
	testmd := newmd-oldmd
	if testmd < 1
		datediff_year := datediff_year-1

	datediff_month := newmonth-oldmonth
	if newmonth < %newmonth%
		datediff_month := 12-datediff_month
	if newmonth = %newmonth%
		{
		if testmd < 1
			datediff_month := 11
		}
	testd := newday-oldday
	if testd < 0
		{
		if newmonth > %oldmonth%
			datediff_month := datediff_month-1
		}

	testoldmonthdays = % m%oldmonth%
	if oldmonth = 02
		{
		testoldyunyear := oldyear/4
		IfInString, testoldyunyear, .000000
			testoldmonthdays += 1
		}

	if testd < 0
		datediff_day := newday+(testoldmonthdays-oldday)
	if testd >= 0
		datediff_day := newday-oldday
	goto, show
	}
return

show:
MsgBox, %datediff_year%年%datediff_month%月%datediff_day%日
Return

GuiClose:
ExitApp

数组版(差不多):

Gui, Add, MonthCal, x0 y0 w230 h180 vMyCalendar
Gui, Add, MonthCal, x230 y0 w230 h180 vMyCalendar2
gui, add, button, x0 y180 w230 h20 gcalc, 计算
Gui, Show
m01=31
m02=28
m03=31
m04=30
m05=31
m06=30
m07=31
m08=31
m09=30
m10=31
m11=30
m12=31
Return

calc:
datediff := object()

GuiControlGet, MyCalendar
GuiControlGet, MyCalendar2

formattime, date1, %MyCalendar%, yyyyMMdd
formattime, date2, %MyCalendar2%, yyyyMMdd

diff := date1-date2
if diff = 0
	{
	datediff["year"] := 0
	datediff["month"] := 0
	datediff["day"] := 0
	goto, show
	}
Else
	{
	if diff < 0
		{
		newdate := date2
		olddate := date1
		}
	Else
		{
		newdate := date1
		olddate := date2
		}

	formattime, newyear, %newdate%, yyyy
	formattime, newmonth, %newdate%, MM
	formattime, newday, %newdate%, dd
	formattime, oldyear, %olddate%, yyyy
	formattime, oldmonth, %olddate%, MM
	formattime, oldday, %olddate%, dd

	datediff["year"] := newyear-oldyear

	newmd = %newmonth%%newday%
	oldmd = %oldmonth%%oldday%
	testmd := newmd-oldmd
	if testmd < 1
		datediff["year"] := datediff["year"]-1

	datediff["month"] := newmonth-oldmonth
	if newmonth < %newmonth%
		datediff["month"] := 12-datediff["month"]
	if newmonth = %newmonth%
		{
		if testmd < 1
			datediff["month"] := 11
		}
	testd := newday-oldday
	if testd < 0
		{
		if newmonth > %oldmonth%
			datediff["month"] := datediff["month"]-1
		}
	testoldmonthdays = % m%oldmonth%
	if oldmonth = 02
		{
		testoldyunyear := oldyear/4
		IfInString, testoldyunyear, .000000
			testoldmonthdays += 1
		}

	if testd < 0
		datediff["day"] := newday+(testoldmonthdays-oldday)
	if testd >= 0
		datediff["day"] := newday-oldday
	goto, show
	}
return

show:
year := datediff["year"]
month := datediff["month"]
day := datediff["day"]
MsgBox, %year%年%month%月%day%日
Return

GuiClose:
ExitApp

业务需求，人工分太慢，素以写了这么一个简单的小脚本。

;创建图形界面
gui, add, text, x0 y0 w600 h20, 在下方粘贴数据
gui, add, edit, x0 y20 w600 h340 vsj,
gui, add, text, x0 y360 w600 h20, 在下方输入分数据人数
gui, add, edit, x0 y380 w600 h20 vrs,
gui, add, button, x0 y400 w600 h20 gok, 从excel或其他粘贴数据到上方并点此
gui, show, , 分数据
Return

ok:
;获取GUI数据且不隐藏界面
Gui, Submit, NoHide
if !sj
{
	MsgBox, 64, 提示, 无数据，请粘贴！
	Return
}
if !rs
{
	MsgBox, 64, 提示, 无人数，请输入！
	Return
}
;替换excel粘贴过来的制表符
StringReplace, sj, sj, `t, `,, All
;分割成伪数组
StringSplit, line, sj, `n
FileCreateDir, %A_Desktop%\分数据%A_MM%-%A_DD%
Loop % rs ;循环人数/次
{
;上一个人的最后一项id
idx := (A_index-1)*floor(line0/rs) ;floor向下取整
content =
loop % floor(line0/rs) ;循环每个人的数据量/次
{
idx += 1
content .= line%idx% "`n" ;表达式形式追加
}
FileDelete, %A_Desktop%\分数据%A_MM%-%A_DD%\%A_Index%.csv
FileAppend, %content%, %A_Desktop%\分数据%A_MM%-%A_DD%\%A_Index%.csv
}
;多出来的
idx := rs*floor(line0/rs)
content =
loop % line0-floor(line0/rs)*rs
{
idx += 1
content .= line%idx% "`n"
}
FileDelete, %A_Desktop%\分数据%A_MM%-%A_DD%\多的.csv
FileAppend, %content%, %A_Desktop%\分数据%A_MM%-%A_DD%\多的.csv
Run, %A_Desktop%\分数据%A_MM%-%A_DD%\
Return

GuiClose:
ExitApp

#NoTrayIcon
;读取安装好的jdk版本
RegRead, version, HKLM, SOFTWARE\JavaSoft\Java Development Kit, CurrentVersion
if !Errorlevel
	{
	;读取安装好的jdk路径
	RegRead, JavaHome, HKLM, SOFTWARE\JavaSoft\Java Development Kit\%version%, JavaHome
	;写入环境变量
	RegWrite, REG_SZ, HKLM, SYSTEM\ControlSet001\Control\Session Manager\Environment, JAVA_HOME, %JavaHome%
	RegWrite, REG_SZ, HKLM, SYSTEM\ControlSet001\Control\Session Manager\Environment, CLASSPATH, .;`%JAVA_HOME`%\lib\dt.jar;`%JAVA_HOME`%\lib\tools.jar;
	;添加path
	RegRead, oldpath, HKLM, SYSTEM\ControlSet001\Control\Session Manager\Environment, Path
	RegWrite, REG_SZ, HKLM, SYSTEM\ControlSet001\Control\Session Manager\Environment, Path, %oldpath%;%JavaHome%\bin
	;立即生效
	SendMessage, 0x1A, 0,"Environment",, ahk_id 0xFFFF
	if 1 =  ;带参数cmd执行exe不显示提示
		MsgBox, 64, 提示, 设置完成!
	}

一键添加java_jdk环境变量工具.zip

addpath = d:\ ;你要添加的
RegRead, oldpath, HKLM, SYSTEM\ControlSet001\Control\Session Manager\Environment, Path ;读取原有
RegWrite, REG_SZ, HKLM, SYSTEM\ControlSet001\Control\Session Manager\Environment, Path, %oldpath%;%addpath% ;添加至注册表
RegWrite, REG_SZ, HKLM, SYSTEM\CurrentControlSet\Control\Session Manager\Environment, Path, %oldpath%;%addpath%
SendMessage, 0x1A, 0,"Environment",, ahk_id 0xFFFF ;立即生效

;说明 在QQ聊天窗口中是乱码，需要发送UTF-16BE编码
ascinput(string){
u :=  A_IsUnicode ? 2 : 1 ;Unicode版ahk字符长度是2
length:=StrPut(string,"CP0")
if(A_IsUnicode)
	{
	VarSetCapacity(address,length),StrPut(string,&address,"CP0")
	}
else
	address:=string
VarSetCapacity(out,2*length*u)
index =0
Loop
{
index += 1
if (index>length-1)
	Break
asc := NumGet(address,index-1,"UChar")
if asc > 126
	{
	index += 1
	asc2 := NumGet(address,index-1,"UChar")
	asc := asc*256+asc2
	}
Send, % "{ASC " asc "}"
}
}


ascaltinput(string){
u :=  A_IsUnicode ? 2 : 1 ;Unicode版ahk字符长度是2
length:=StrPut(string,"CP0")
if(A_IsUnicode)
	{
	VarSetCapacity(address,length),StrPut(string,&address,"CP0")
	}
else
	address:=string
VarSetCapacity(out,2*length*u)
index =0
Loop
{
index += 1
if (index>length-1)
	Break
asc := NumGet(address,index-1,"UChar")
if asc > 126
	{
	index += 1
	asc2 := NumGet(address,index-1,"UChar")
	asc := asc*256+asc2
	}
StringSplit, var, asc,
Loop % var0
{
str .= "{Numpad" var%A_index% "}"
}
send, {AltDown}%str%{Altup}
str =
}
}


#z:: ;测试
ascinput("你m啊12234%^&*()")