vb写一个小程序

实现，把网页上的选择题给做了！每一页只有一个题，每做一题自动点击下一题，前提是我已经有所有的题和答案了！我是VB绝对的菜鸟，可以给我发代码，也可以是别的方式！每天都要做些无谓的题，烦！请大侠解救！可加分！
也可以是别的程序！只要能做出来就行！谢谢了大侠们！~~~~~

按键精灵配合excel就OK了。要看到实际的做题网页才能测试和开发。

'dim 我也是vb新手 as 提供思路.错了请自己改

 

 

 

private declare sub mouse_event lib "user32" (byval dwflags as long, byval dx as long, byval dy as long, byval cbuttons as long, byval dwextrainfo as long) private const mouseeventf_absolute = &h8000 '指定鼠标使用绝对坐标系，此时，屏幕在水平和垂直方向上均匀分割成65535×65535个单元

 

private sub timer1_timer() private const mouseeventf_move = &h1 '移动鼠标 private const mouseeventf_leftdown = &h2 '模拟鼠标左键按下 private const mouseeventf_leftup = &h4 '模拟鼠标左键抬起

 

''''中间用timer2控件控制间隔

 

 

private const mouseeventf_leftdown = &h2 '模拟鼠标左键按下 private const mouseeventf_leftup = &h4 '模拟鼠标左键抬起

 

private const sw = 1024 private const sh = 768 private sub screen_click(byval x as long, byval y as long) mw = x / sw * 65535 mh = y / sh * 65535 mouse_event mouseeventf_absolute + mouseeventf_move, mw, mh, 0, 0 mouse_event mouseeventf_leftdown or mouseeventf_leftup, 0, 0, 0, 0 end sub private sub command1_click() screen_click 512, 384 '点击command1之后，模拟点击屏幕中间 end sub private sub command2_click() print rnd end sub private sub form_load() me.height = me.width command2.move (me.scalewidth - command2.width) / 2, (me.scaleheight - command2.height) / 2 end sub