Postmessage運用 往飛信新增資訊

1.定位視窗

1  fhwnd:=findwindow(nil,'

簡訊中心
'); 23
if fhwnd=0
then45
begin showmessage('
請先登入飛信2013簡訊中心
'); exit; end
; 6714
15if fhwnd>0
then sendmessage(fhwnd,wm_syscommand,sc_restore,0);//視窗最大化
1617 feition(g_tel,memo1.text);

2.傳送(postmessage的運用)

1 //author：吳chyuan 2013.1.223

procedure
feition(tel:string;fetionmsg:string);45
var6
7i:integer;89
pj:string;
1011
fhwnd:thandle; 
1213
chwnd3,chwnd2,chwnd1,chwnd:hwnd;
1415
begin
1617 pj:=fetionmsg; fhwnd:=findwindow(nil,'
簡訊中心
'); 
1819
if fhwnd=0
then
2021
begin showmessage('
請先登入飛信2013簡訊中心
'); exit; end;22
23if fhwnd>0
then
begin
2425 postmessage(findwindow(nil,'
開班管理系統
'),wm_data,1,2);
2627 // sendmessage(fhwnd,wm_syscommand,sc_maximize,0); //最大化 sc_maximize sc_minimize //postmessage(fhwnd,wm_syscommand, sc_close,0
); 
2829 chwnd:=findwindowex(fhwnd,0,'
fxrichedit
',nil
); 
3031
if chwnd>0
then
3233
begin
3435 sendmessage(chwnd,messages.wm_lbuttondown ,0,$0180017a); 
3637 sendmessage(chwnd,messages.wm_lbuttonup ,0
, $0180017a);
3839
4041 sendmessage(chwnd,wm_settext,0,0); 
4243
for i := 1
to length(tel) do
4445 sendmessage(chwnd,wm_char,integer(tel[i]),0
); 
4647 // sendmessage(chwnd,wm_char,integer(#13),0); 
4849 sendmessage(chwnd, wm_keydown, vk_return, 0
); 
5051 sendmessage(chwnd, wm_keyup, vk_return, 0
); 
5253
end;
5455 chwnd1:=findwindowex(fhwnd,chwnd,'
fxrichedit
',nil
); 
5657 chwnd2:=findwindowex(fhwnd,chwnd1,'
fxrichedit
',nil
); 
5859 chwnd3:=findwindowex(fhwnd,chwnd2,'
fxrichedit
',nil
); 
6061
if chwnd1>0
then
6263
begin
6465 // showmessage('
請先在上面的**點選滑鼠左鍵確定，再點ok
'); 
6667 //myclosewin; 
6869 sendmessage(chwnd3,wm_settext,0,0); 
7071
for i := 1
to length(pj) do
7273
begin
7475 sendmessage(chwnd3,wm_char,integer(pj[i]),0
); 
7677
end; 
7879
end;
8081
end;
8283
end;

飛信免費郵件api,飛信介面

大家都知道飛信是能夠免費傳送簡訊的，可是飛信又沒有官方的介面，所以無法借用移動的官方介面實現簡訊的免費傳送，可是還是有一些破解的介面能夠使用的。提交格式 return 當前狀態 多餘內容為中國移動返回 能夠忽略，若沒有返回內容或者未返回傳送成功，則表示傳送失敗 請在傳送前確保對方已為飛信好友 引數同...

飛信分析之八 飛信的加密方法

花了好幾天時間終於把飛信加密的密碼用非.net的方式給還原了，並用c 完全實現了一遍，回頭把這個c 版的showpasswd貼上來。看到有朋友問到飛信的加密方法，這裡就把飛信用的加密和變換的方法一起簡要介紹一下。1.飛信的配置檔案的加密方法 飛信的配置檔案其實不是加密，只是進行了一下變換。這種變換的...

Nagios飛信結合

在測試完成 linux命令列下可以傳送飛信之後就可以將飛信與nagios結合，結合的步驟如下 1 飛信命令定義 2 聯絡人模組定義 3 新增聯絡人 1.定義命令 在 usr local nagios etc objects commands.cfg中新增以下命令定義 define command d...