|
|
本帖最后由 以利亚先生丶 于 2012-5-11 14:04 编辑
- import win.ui;
- /*DSG{{*/
- mainForm = ..win.form( bottom=400;parent=...;right=600;text="aardio Form" )
- mainForm.add(
- button2={ bottom=394;right=121;left=18;top=359;z=5;text="button2";cls="button" };
- edit={ bottom=355;text="edit";left=134;multiline=1;top=19;z=1;right=583;edge=1;cls="edit" };
- button={ bottom=330;right=120;left=17;top=291;z=4;text="button";cls="button" };
- picturebox={ top=210;z=3;bottom=253;right=123;left=25;cls="picturebox" };
- edit2={ bottom=191;text="edit2";left=28;multiline=1;top=159;z=2;right=113;edge=1;cls="edit" }
- )
- /*}}*/
- import config;
- mainForm.bindConfig( config.mainForm,{
- edit = "text"; //绑定edit控件的text属性值到配置文件
- radiobutton = "checked";
- checkbox = "checked";
- combobox = "selIndex";
- } );
- import inet.http;
- import web.form;
- var wb = web.form( mainForm.edit);//创建web窗体
- var Http = inet.http();
- mainForm.picturebox.image=Http.get("http://my.jdzj.com/incing/getcode.asp");
- mainForm.button.oncommand = function(id,event){
- //mainForm.msgbox( mainForm.button.text );
- var html=Http.post("http://my.jdzj.com/Chkadmin.asp","user=wjxdgz&pass=wujingxing®jm=" + mainForm.edit2.text+ "&Typ=comp");
- if(html){
- wb.write(string.fromto( html ))
- }
-
- if(string.find(string.fromto( html ),"wjxdgz")){
- wb.go("http://my.jdzj.com/Chkadmin.asp")
- }else {
- mainForm.msgbox("登录失败")
- }
- */
- // mainForm.msgbox(html)
-
- }
- mainForm.button2.oncommand = function(id,event){
- //mainForm.msgbox( mainForm.button2.text );
- var asdf = Http.get("http://my.jdzj.com/Chkadmin.asp");
- mainForm.msgbox(asdf)
- }
- mainForm.show()
- win.loopMessage();
复制代码 因为wb 控件 里网页显示的是 一连串的问号,所以我是根据msgbox 弹出的页面信息显示网页时是登陆成功的,我不知道是我哪里写错了。哪位知道的朋友,帮忙热心解决下问题,谢谢了。
而且也经常会出现登陆不成功,以下是图片。
|
-
-
|