Advertisement
DestBro

Авторизации через Яндекс.

Jan 11th, 2017
192
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.61 KB | None | 0 0
  1. import flashex.mem;
  2. import flashex.io;
  3. import flash.vm;
  4. import flash.vmex;
  5. import flash.swf;
  6. import flash.minimap;
  7. import Network;
  8. import licence;
  9. import base.win;
  10. import base.ini;
  11. import base.gui;
  12. import std.string;
  13. import std.time;
  14. import std.file;
  15. Dialog ref testDlg;
  16. HWND flashWnd, static1, check1;
  17. EditBox d0, d1;
  18. Network.WebDav ref webDaw = new Network.WebDav();
  19.  
  20.  
  21. void eventbtn(Dialog ref dlg, int param){
  22. if(webDaw.Connect("https://webdav.yandex.ru", 443 , d0.GetText(), d1.GetText())){
  23.  
  24. d0.GetHWND().Enable(0); d1.GetHWND().Enable(0);
  25. static1.SetText("Вы авторизированы");
  26. Beep(800, 700);
  27.  
  28. }else{static1.SetText("Не верные данные"); Beep(400,700); } }
  29.  
  30. void closeDlg(Dialog ref Dialog, int param){}//вызывается при закрытии
  31. testDlg = CreateDialog("Авторизация Yandex", 200, 200, 400, 145, closeDlg);
  32.  
  33. check1 = testDlg.AddButton("Авторизация", 20, 22, 110, 25, eventbtn, 0);
  34. static1 = testDlg.AddStatic("Статус Авторизации", 24, 50, 120, 20);
  35.  
  36. testDlg.AddStatic("Логин:", 190, 25, 140, 17);
  37. testDlg.AddStatic("Пароль:", 190, 50, 140, 17);
  38.  
  39. d0 = testDlg.AddEdit("", 240, 25, 140, 17);
  40. d1 = testDlg.AddEdit("", 240, 50, 140, 17);
  41.  
  42.  
  43. testDlg.AddStatic("Программа разработана:", 10, 100, 200, 20);
  44. testDlg.AddHyperLink("© Physics Official", "https://vk.com/physics_plus_official", 170, 100, 100, 13);
  45. testDlg.Show(1);//Показать диалог
  46. testDlg.OnTop(1);//Окно по верх всех
  47. testDlg.WaitClose();//ждем закрытия диалога
  48. return 0;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement