Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import flashex.mem;
- import flashex.io;
- import flash.vm;
- import flash.vmex;
- import flash.swf;
- import flash.minimap;
- import Network;
- import licence;
- import base.win;
- import base.ini;
- import base.gui;
- import std.string;
- import std.time;
- import std.file;
- Dialog ref testDlg;
- HWND flashWnd, static1, check1;
- EditBox d0, d1;
- Network.WebDav ref webDaw = new Network.WebDav();
- void eventbtn(Dialog ref dlg, int param){
- if(webDaw.Connect("https://webdav.yandex.ru", 443 , d0.GetText(), d1.GetText())){
- d0.GetHWND().Enable(0); d1.GetHWND().Enable(0);
- static1.SetText("Вы авторизированы");
- Beep(800, 700);
- }else{static1.SetText("Не верные данные"); Beep(400,700); } }
- void closeDlg(Dialog ref Dialog, int param){}//вызывается при закрытии
- testDlg = CreateDialog("Авторизация Yandex", 200, 200, 400, 145, closeDlg);
- check1 = testDlg.AddButton("Авторизация", 20, 22, 110, 25, eventbtn, 0);
- static1 = testDlg.AddStatic("Статус Авторизации", 24, 50, 120, 20);
- testDlg.AddStatic("Логин:", 190, 25, 140, 17);
- testDlg.AddStatic("Пароль:", 190, 50, 140, 17);
- d0 = testDlg.AddEdit("", 240, 25, 140, 17);
- d1 = testDlg.AddEdit("", 240, 50, 140, 17);
- testDlg.AddStatic("Программа разработана:", 10, 100, 200, 20);
- testDlg.AddHyperLink("© Physics Official", "https://vk.com/physics_plus_official", 170, 100, 100, 13);
- testDlg.Show(1);//Показать диалог
- testDlg.OnTop(1);//Окно по верх всех
- testDlg.WaitClose();//ждем закрытия диалога
- return 0;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement