cchcfei的个人资料

给网页文本框赋值 WebBrowser1.Document.All.Item("2_11").Value = "111" 这样老是错误显示要求对象~怎么做？

网页自动填写账号密码找了好多教程都不行求帮忙 WebBrowser1.Document.GetElementById("username").Value = "000" 这句用了提示错误 Public Sub WriteToForm(ByVal Obj As Object, ByVal sTagName As String, ByVal sName As String, ByVal Submit As Boolean, Optional sType As String = "", Optional sValue As String = "", Optional sSelect As Boolean) Dim i As Integer Dim vDoc, vTag sTagName = UCase(sTagName) sType = UCase(sType) sName = UCase(sName) Set vDoc = Obj.Document For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).tagName) = sTagName Then Set vTag = vDoc.All(i) If sTagName = "SELECT" Or sTagName = "TEXTAREA" Then If UCase(vTag.Name) = sName Then vTag.Value = sValue Else If sType = "RADIO" Or sType = "CHECKBOX" Then sValue = UCase(sValue) If UCase(vTag.Name) = sName And UCase(vTag.Value) = sValue Then If sSelect Then vTag.Checked = True Else vTag.Checked = False End If End If Else If Submit Then If UCase(vTag.Type) = sType And UCase(vTag.Name) = sName Then vTag.Click Else If UCase(vTag.Type) = sType And UCase(vTag.Name) = sName Then vTag.Value = sValue End If End If End If End If Next i End Sub Private Sub Command2_Click() '应用举例================================================= WriteToForm WebBrowser1, "input", "username", False, "username", "文本框" '输入文本 WriteToForm WebBrowser1, "input", "checkbox3", False, "checkbox", "3", True '复选框打钩 WriteToForm WebBrowser1, "input", "checkbox5", False, "checkbox", "5", False '复选框不打钩 WriteToForm WebBrowser1, "input", "pass", False, "password", "123456" '密码框 WriteToForm WebBrowser1, "select", "select", False, "select", "4" '列表框 WriteToForm WebBrowser1, "input", "radiobutton", False, "radio", "4", True '单选框 WriteToForm WebBrowser1, "input", "submit", True, "submit" '提交按钮 End Sub 这个用了没反应请问怎么办？

vb 获取IE右键地址有些网址到页面点击右键地址跟主地址栏不一样的可以获取这个地址右键属性里面的地址吗？谢谢

vb 读取IE 源码可以吗？可以吗/？

请问图片框的旋转特效是怎么用的? 想做个抽奖转盘有例子可以看么？谢谢

新部落收人

这套牌您觉得能上几分？

以前做的小游戏做一半没做了···还有这个可以联机的哦··还有这傻逼··

微信朋友圈发的那些小游戏就是HTML写的么？微信朋友圈发的那些小游戏就是HTML写的么？

开服有人退出服务器就崩溃· - -下载了置顶的1.305 ··然后开服有人进来退出·服务器就停止工作··- -谁知道怎么搞？

有没有简单点的方法实现呢~？新手自己写的代码 1楼喂狗

新手求问··这延时是怎么算出来的？ #include<reg51.h> #include<intrins.h> //函数头文件 #define ydled P2 //定义p2口 //定义一个口 sbit LED0=P2^0; void Delay10ms(unsigned int); //误差 0us 延时 void main() { //P2=0x00; while(1) { unsigned char n; ydled=0x01;//0000 0010 while(1) { for(n=0;n<7;n++) //左移7次，这样子就会到达最左边 { ydled=_crol_(ydled,1); //将GPIO_LED左移一位 Delay10ms(50); //延时 } for(n=0;n<7;n++) //右移7次，这样子就会到达最右边 { ydled=_cror_(ydled,1); //将GPIO_LED右移一位 Delay10ms(50); //延时 } } } } void Delay10ms(unsigned int c) //误差 0us { unsigned char a,b; for(;c>0;c--) for(b=38;b>0;b--) for(a=130;a>0;a--); }

求黑苹果教程·· 安装了个10.7的··安装完要装XCODE6··居然提示版本低···- -···然后找10.94的安装教程都找不到··麻烦有安装过的·分享下··谢谢谢谢

学VB6.0的··想学SWIFT 各位哥哥姐姐们好··想问问之前玩vb6.0的现在想学SWIFT 难度大不？有没有什么学习经验告诉小弟呢？非常谢谢··

三段整理 1秒前结束那个任务三段整理 1秒前结束那个任务怎么做啊？？？怎么试都不行

有人看过初音未来吗~？吧里有没有高手也做个这样的动画吖？

用vb能不能写简单的电路板程序啊·？例如让一个灯亮一下暗一下这样？

啊··求翻译啊··哪个大哥大姐帮帮忙··谢谢啊··

最近很多人发游戏啊··我也发一个·· 以前做的··大家玩玩给点意见哈···等下上链接

哪个大哥大姐来帮忙设计设计啊··· 是一个 2.4G 无线鼠标的彩盒背面都是放说明的所以不用有什么东西啦··就侧面跟前面除黑色的地方···哪个大哥大姐帮帮忙··

有没有懂SQL的大哥大姐···来个帮帮忙问题1：在 SQL SERVER 2000 的企业管理器里面表能不能设置自动编号？如果不行请告诉我怎么读取最后一项数据谢谢问题2：用DATAGARID 控件会不会使速度变慢··？如果不会请告诉我 DATAGARID 的使用方法或给我个教程谢谢

【救命】无思路最近在做个简单的进销存系统···遇到点问题做单机的没问题··用的EXCEL做数据库···那个ACCESS我不会用需要做联机的问题来了··就是存取数据少量数据是没问题啦··但是如果EXCEL里面有很多数据这么存取？？？

哪位大侠帮我设计张名片啊··· 哪位大侠帮我设计张名片啊···

愚人节大礼··要的留邮箱· 图就不贴啦··以前发过的··改了一下·· 有兴趣的留个邮箱吧···

刚刚完成的一个TD游戏·有兴趣的看看哈一楼……

为什么我没有急救中心？为什么我没有急救中心？怎么建造的？～

【求助】取得网页信息例如: 在BAIDU帖吧里搜索 ID:cchcfei 然后把这个ID发的帖子都在TEXT1.TEXT里显示出来? 应该怎么做? =.=研究了好久都没搞懂```帮帮忙谢谢 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F116524477.html&urlrefer=6140f68bdca4b7201977e13dad7f02f7 这里有20分``别浪费了`

谁给个 VB ACCESS 的教程··谢谢谁给个 VB ACCESS 的教程··自己研究一上午了··都没搞懂·· 觉得不难··就是没个教程可以看下·· 谢谢谢谢

没事写了个`QQ找茬的辅助器因为没有强大的功能``所以只能叫辅助器``不叫作弊器`` 窗体就2个PICTURE```所以不发图片了`` 主要用到的API 窗体透明```窗体拖动```隔着窗口点击`截图``像素判断` 差不多就这些了`` 要的留油箱``` 屏幕分辨率为 1280*800 使用方法把第1个picture跟找茬的第一张图对齐就好` 按 z 打开搁着窗口点击 x 关闭搁着窗口点击 a 提取像素并计算后输出 s 提取像素但不计算 e 输出颜色改变为浅蓝 r 输出颜色改变为红色同时按下QW 退出辅助器对齐后按一下Z 开始后按 A 就会看到拉`一大片颜色不一样的地方就是茬了``有些地方比较小`看不清`换种颜色A一下` 有些一点点的不用理``一片片的那些就是了` 因为算法写得不好`所以`有些显示不出来`要慢慢完善的`

数据保存``求助` vb制作像学生系统`之类的时候数据保存在哪呢/? 我的意思是要保密性高点的``应该怎么做?

vb+PowerBASIC

帮忙优化下代码````CPU使用率 26% 汗

鼠标移动到指定位置` 怎么把鼠标移动到指定位置~?例如我要移动到FORM1的 300 400``用那个移动鼠标的API老是移到别的地方去``

问个坐标问题``帮帮 hx hy 是A点的坐标jx jy 是B点的坐标现在 hx,hy-jx,jy 成一直线我想要 hx,hy 后移应该怎么做?有公式没有?贴2张图``

问个坐标问题``帮帮

vb 窗口半透明后老是闪动`` Const LWA_COLORKEY = &H1 Const LWA_ALPHA = &H2 Const GWL_EXSTYLE = (-20) Const WS_EX_LAYERED = &H80000 Const WS_EX_TRANSPARENT As Long = &H20& Private Declare Fun百度ction GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Fun百度ction SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Fun百度ction SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Sub Form_Load() Dim Ret As Long Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED Or WS_EX_TRANSPARENT SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret 'Set the opacity of the layered window to 200 SetLayeredWindowAttributes Me.hWnd, 0, 200, LWA_ALPHA End Sub 作者： 31_Degree 2008-12-1 02:07 　回复此发言用了 31_Degree 这个后``老是闪动``不知道有没有办法让他不闪的~?~?我要覆盖在游戏上面的``

vb 透过窗口点击 vb 能不能实现透过窗口点击另一个窗口`???顺便问下Line (hx, hy)-(jx, jy), vbBlue hx,hy 是红圆的坐标 jx,jy 是黑圆的坐标这个红圆后面在画一个红圆``` 后面这个红圆画一条直线到黑圆`` 后面这个红圆画的直线要经过前面的红圆的圆心`才到达黑圆的圆心``` 直线跟前面的直线成直线`

请教 cbm666 老师 picture 载入 gif 后在上面添加文字``然后 savepicture图片一样能动``\能不能实现?~谢谢

vb PlaySound怎么用 PlaySound这个 API怎么用啊? 谁告诉我`? 告诉我声明跟播放停止就行了`谢谢

汗``服务器这么不稳定`` 汗``服务器这么不稳定````是WINSOCK本身不稳定`还是`我的网络不稳定~?老是断线``郁闷`

WINSOCK``救命啊```救命啊`` 用 WINSOCK 做了个服务器``结果客户端如果非法退出``服务器还是给它发信息```结果就是服务器错误```郁闷` 不知道怎么解决~?大家帮帮忙`谢谢` 用客户端的人说会自动退出``有些英文`一会就没了``我自己测试没测试出来`不知道是什么情况``有知道的顺便告诉我声` 谢谢`

有没有人给个澄缘的邀请码

总于完成了``TCP连机扑克牌游戏现在基本完成了 90%```7天```一天10个钟头``哈`总算完成了`谁愿意帮忙测试`哈```今天看能不能完成剩下的``完成后开源``给跟我一样的菜鸟们学习```贴张图``

额``VB书不见了``谁有` VB书不见了``谁有`多余的```给我吧``就是你拿了书也不看`的那种``放在又占地方```拿来我帮你放吧`

Card.dll 不会用`大家帮帮忙哈`` 下了这个 Card.dll 一个画扑克背景的控件 http://www.vbaspnew.com/ziyuan/k/tx/4.zip 解压密码 home.91i.net/baiy 不知道是不是画牌的```不会用``大家帮忙看下`哈` 我想知道用VB做扑克牌游戏是直接画好导入还是在VB里面画的```?? 告诉下方法``谢谢http://zhidao.baidu.com/question/75483595.html这里有50分`

想加个家族玩玩`` 怎么加家族哦~?游戏里没看见这功能`

为什么我注册不了`` 我怎么注册不了帐号啊~?~?~说什么序列号不对的`在哪输入序列号啊~??~游戏可以玩``但是注册不了帐号`谁告诉我怎么注册帐号吖~?我是在游戏里点注册的`

想学 MAYA 不知道有没有中文版的大家用的都是什么版本吖？有没有中文版的～？

侠盗车手作弊器

侠盗车手作弊器绿色版

侠盗车手：罪恶都市3 作弊器 1楼给百度`

刚完成的一个愚人节软件````帮忙测试下吧``

怎么获得当前获得焦点的是哪个窗口```

文件无法共享`` 共享本地E盘时出现错误。数据无效。此时尚未创建共享资源。````````怎么回事啊~？~~！~！谁知道``什么叫数据无效``` - -``郁闷``

窗口置顶问题`` 我想做1个热键呼出窗体````像传奇外挂一样`按一个快捷键弹出外挂``快捷键弹出外挂没问题``但是弹出外挂后游戏却缩下去了```有什么方法可以弹出外挂后游戏不缩下去``谢谢写`

用sendkeys有问题 sendkeys 发送字符串到1个窗口```总是接收不到``例如``appactivate "记事本",1snedkeys "sda"这样记事本要全屏还是form1的面版在记事本上面才可以````有没有什么方法记事本不用全屏也能接受到呢`

侠盗3能不能窗口化啊？侠盗3能不能窗口化啊？

form1 调用 form2 控件我要在 form2 中输入一些数据``返回到form1 中`让form1执行``没理由让别人用我东西的时候总是要在这个窗口输入数据后在到别的窗口点确定吧````这个事件必须在FORM1中执行````请问有什么方法可以做到吗~？~？？~public``不行``我原本想在form1中放个按钮``然后让form2 点击他``form1.command2_click 好象不行``大哥大姐们帮帮忙```

```有一个小问题``帮帮` 我想把FORM1中一个数组传到FORM2里面````应该怎么办？~？还是直接在FORM2里面调用也可以``

找一个教程``````帮帮` 以前在网上看到一个 `人物转手绘的教程````就是把一张相片里的人物转成手绘效果```希望知道这个教程的告诉我``谢谢``