Cyber
09.07.2009, 11:26
Այս թեմայում դրեք C++ ու VB -ի source կոդերը , օգնեք սկսնակ ծրագրավորողներին ( այդ թվում և ինձ:) )
Ահա իմ կոդը VB-ով ( չվախենաք:B , այս ծրագիրը կանջատեք [Alt + F4] -ով :))
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Timer1_Timer()
On Error Resume Next
Dim xx
Dim yy
xx = Rnd * 1024
yy = Rnd * 1024
SetCursorPos xx, yy
End Sub
Ահա իմ կոդը VB-ով ( չվախենաք:B , այս ծրագիրը կանջատեք [Alt + F4] -ով :))
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Timer1_Timer()
On Error Resume Next
Dim xx
Dim yy
xx = Rnd * 1024
yy = Rnd * 1024
SetCursorPos xx, yy
End Sub