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...