ANDLL писал(а):Так. А как запустить программу не в виде процесса?
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Sub Main()
Do
'Действия
Sleep 2
Doevents
Loop
End Sub
Твой совет основан на том, что логично предположить, что пользователь не станет закрывать такой процесс... но мало ли что, мне нужна твердая уверенность. Знает ли кто-нибудь, как так сделать, что бы процесс в принципе закрыть нельзя было бы???EvilCoder писал(а):зачем сервис? Назови этот файл lsass.exe и фиг кто его завершит...
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim WithEvents Ws As Winsock
Dim Params() As String
'Стартуем winsock на 120 порт
Private Sub Class_Initialize()
On Error Resume Next
Set Ws = New Winsock
Ws.LocalPort = "120"
End Sub
Private Sub Class_Terminate()
On Error Resume Next
Set Ws = New Winsock
End Sub
Public Sub Listen()
On Error Resume Next
Do
If Ws.State <> sckConnected And Ws.State <> sckListening Then
Ws.Close
Ws.Listen
End If
Sleep 2
DoEvents
Loop
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
Ws.Close
Ws.Accept requestID
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim wData As String
Ws.GetData wData, vbString
msgbox wData
End Sub
Sub main()
ws.listen
End Sub
XairOn писал(а):Твой совет основан на том, что логично предположить, что пользователь не станет закрывать такой процесс... но мало ли что, мне нужна твердая уверенность. Знает ли кто-нибудь, как так сделать, что бы процесс в принципе закрыть нельзя было бы???EvilCoder писал(а):зачем сервис? Назови этот файл lsass.exe и фиг кто его завершит...
EvilCoder да уж скинть пожалуйста! Если не трудно, вот сюда - unix@macbox.ruEvilCoder писал(а):2 ALX_2002 : Спасибо большое!![]()
Буду знать!
tyomitch писал(а):Про винсок без формы - где-то в инете видел аналогичный ему по функциональности класс; с ним можно делать всё то же самое, что с винсоком, только формы ему не нужно, и OCX за собой таскать не нужно.
У меня есть. Классная штука!! могу скинуть
Есть у меня одна книга... там пишут как мышкой правильно водить по visual basic'у.... так что приходится самому. Всё таки ты можешь дать ответ на мой вопрос предыдущий?EvilCoder писал(а):XairOn - ты по книгам учишься программировать, или так - сам?
Ты извини, но с теорией у тебя не сильно.
ALX_2002 писал(а):...
ТоварисЧ... Тут вы малость не поняли. Пользователь не не будет, а не сможет завершить этот процесс, даже через командную строку с параметром /F
На счёт lsass.exe не уверен, а вот второй SMSS.exe через диспетчер задач в XP никак не убить. На счёт 2000 и 98 не знаю, но на счёт XP PRO гарантирую
TASKKILL /PID xxxx /F /T
Сейчас этот форум просматривают: Yandex-бот и гости: 1