这些每句都是什么意思啊？、

海洋

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说爱我，不说爱我就一分钟关你机，不信，试试···"" ",0 ,true  
dim a
do while(a <> "我爱你")
a = inputbox ("说爱我,就不关机，快撒，说 ""我爱你""　","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true  
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"


这是vbs.小程序 请问谁能告诉我 这些每句都是什么意思呢？

我就知道这 shutdown -r -t 60 -c  是重启本地计算机 并且倒计时60妙 -c 是“文字”

[ 本帖最后由 海洋 于 2009-1-10 15:57 编辑 ]

Beloved

学的是C

VB的有些不太懂

没人会一句句的跟你说什么意思的

大致是干什么的，后面中文有

函数看不懂？那别人说了也没用

Beloved

顺便再转个VB写的恶作剧的源码
对电脑无害，只是一个小恶作剧的源代码，VB写的

============================================================


Dim i As Integer

Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Const HORZRES = 8      '以像素为单位的显示宽度
Private Const VERTRES = 10     '以像素为单位的显示高度
Dim P As POINTAPI
Private Sub Form_DblClick()
Unload Me
End Sub
Private Sub Form_Load()
i = 20
Me.Hide
MsgBox "退出请自己想办法"
End Sub
Private Sub Timer1_Timer()
    If i = 10 Then
    Timer1.Interval = 100
    i = 10
    End If
    If i = 0 Then
    Timer1.Interval = 50
    End If
    Dim a, b As Double
    a = Rnd(Rnd)
    b = Rnd * a * Rnd * 5 * 5
    P.x = GetDeviceCaps(Me.hdc, HORZRES) / b
    P.y = GetDeviceCaps(Me.hdc, VERTRES) / b
    SetCursorPos P.x, P.y
    i = i - 1
End Sub

海洋

是什么恶作剧啊  呵呵

海洋

什么 啊 是错误的啊  上面的兄弟

Beloved

我只是转的鹦鹉的一个代码

我没装VB，没试过

你可以找下
鹦鹉发的软件，下面都有源码的

烨鑫

VB

llzy3575

VB好像能编出的程序不多。

烨鑫

有没有exe的恶作剧呀