ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
08.04.2008, 02:31
|
|
Участник форума
Регистрация: 11.04.2007
Сообщений: 219
Провел на форуме:
982101
Репутация:
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
Сообственно нужна помощ в переводе....с меня +,если все идеально $ |
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Древовидный вид