08.04.2008, 02:31
|
|
Участник форума
Регистрация: 11.04.2007
Сообщений: 219
С нами:
10044113
Репутация:
13
|
|
Нужна помощ в Vb to c++
PHP код:
Private Sub Form_Load()
WebBrowser1.Navigate "http://antichat.ru"
Dim REALMLIST As String
REALMLIST = Inet1.OpenURL("http://antichat.ru/realwtf")
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Open "realmlist.wtf" For Output As #iFileNo
Print #iFileNo, REALMLIST
Close #iFileNo
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub
Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image6.Picture
End Sub
Private Sub Image4_Click()
On Error GoTo ErrorMode
Shell App.Path & "/" & "Test.exe"
End
Exit Sub
ErrorMode:
MsgBox "Unable to fined test.exe", vbCritical, " "
End
End Sub
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image3.Picture
End Sub
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image3.Picture
End Sub
Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image3.Picture
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
End Sub
Сообственно нужна помощ в переводе....с меня +,если все идеально $ |
|
|