работа с инетом

[CyberNut]

Как узнать находиться ли комп в инете в данный момент, как отправить текст на почтовый ящик ? Все это не используя Winsock , без лишних ocx

p.s. Я ЗНАЮ ЧТО ПОИСК РУЛИТ

[tyomitch]

p.s. Я ЗНАЮ ЧТО ПОИСК РУЛИТ

ТОГДА ИЩИ


Всё это здесь было, и не по одному десятку раз.

[CyberNut]

ТОГДА ИЩИ

Всё это здесь было, и не по одному десятку раз.

Я вот уже 47 топиков просмотрел, в каждом из них только Ваше высказывание типа "ПОИСК РУЛИТ" , а полезного там болт.
Вы бы или FAQ по этому вопросу организовали или вообще не отвечали

[GSerg]

Снова этот вопрос...

http://bbs.vbstreets.ru/viewtopic.php?t=14461

[_Мика_]

работа с минетом

Ты правда хочешь это знать???

[CyberNut]

работа с минетом

Ты правда хочешь это знать???

Так вот в каком вопросе ты Гуру.
Надеюсь ты правильный свой адрес указал(а), я к тебе свою подружку на обучение отправлю

[_Мика_]

работа с минетом

Ты правда хочешь это знать???

Так вот в каком вопросе ты Гуру.
Надеюсь ты правильный свой адрес указал(а), я к тебе свою подружку на обучение отправлю

Боюсь она к тебе больше не вернется

[ALX_2002]

Хм. А в принципе ты хочешь это проверять из своей программы или с инет странички ?

На счёт отправки почты, вот что есть

http://sec.pmg17.vn.ua/teacher/steptostep/20.html
http://postroika.ru/html/48step2.html
http://www.relib.com/forums/topic.asp?id=763193

На счёт подключения к инету. Есть тоже разные способы

[CyberNut]

Боюсь она к тебе больше не вернется

Куннилингус это тоже по твоей части

[CyberNut]

Хм. А в принципе ты хочешь это проверять из своей программы или с инет странички ?

На счёт отправки почты, вот что есть

http://sec.pmg17.vn.ua/teacher/steptostep/20.html
http://postroika.ru/html/48step2.html
http://www.relib.com/forums/topic.asp?id=763193

На счёт подключения к инету. Есть тоже разные способы

Спасибо большое. Оказывается еще есть здесь люди которые говорят по-существу .

[RayShade]

Вот как одна буква меняет суть вопроса.

Написал бы Интернет и не было бы проблем.

[_Мика_]

Боюсь она к тебе больше не вернется

Куннилингус это тоже по твоей части

К 15 годам, извини, еще не все успел освоить

[CyberNut]

Так если серьёзно, может быть кто-нить все-таки подскажет (или ссылку даст где посмотреть ) как определить есть ли активное подключение к инету, причем без Winsock ? это ведь форум

[_Мика_]

Код: Выделить всё


Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'InetIsOffline returns 0 if you're connected
    MsgBox "Are you connected to the internet? " + CStr(CBool(Not (InetIsOffline(0)))), vbInformation
End Sub


Код: Выделить всё


Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    If InternetAttemptConnect(ByVal 0&) = 0 Then
        MsgBox "You can connect to the Internet", vbInformation
    Else
        MsgBox "You cannot connect to the Internet", vbInformation
    End If
End Sub


Код: Выделить всё


Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    If InternetCheckConnection("http://www.allapi.net/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
        MsgBox "Connection to http://www.allapi.net/ failed!", vbInformation
    Else
        MsgBox "Connection to http://www.allapi.net/ succeeded!", vbInformation
    End If
End Sub


Код: Выделить всё


Private Const INTERNET_CONNECTION_CONFIGURED = &H40
Private Const INTERNET_CONNECTION_LAN = &H2
Private Const INTERNET_CONNECTION_MODEM = &H1
Private Const INTERNET_CONNECTION_OFFLINE = &H20
Private Const INTERNET_CONNECTION_PROXY = &H4
Private Const INTERNET_RAS_INSTALLED = &H10
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Ret As Long
    Me.AutoRedraw = True
    'retrieve the connection status
    InternetGetConnectedState Ret, 0&
    'show the result
    If (Ret And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then Me.Print "Local system has a valid connection to the Internet, but it may or may not be currently connected."
    If (Ret And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then Me.Print "Local system uses a local area network to connect to the Internet."
    If (Ret And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then Me.Print "Local system uses a modem to connect to the Internet."
    If (Ret And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then Me.Print "Local system is in offline mode."
    If (Ret And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then Me.Print "Local system uses a proxy server to connect to the Internet."
    If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then Me.Print "Local system has RAS installed."
End Sub


Код: Выделить всё


'Example by Vijay Phulwadhawa (vijaycg44@hotmail.com)
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Dim sConnType As String * 255
Private Sub Form_Load()
    Dim Ret As Long
    Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
    If Ret = 1 Then
        MsgBox "You are connected to Internet via a " & sConnType, vbInformation
    Else
        MsgBox "You are not connected to internet", vbInformation
    End If
End Sub


Код: Выделить всё


Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Ret As Long
    If IsNetworkAlive(Ret) = 0 Then
        MsgBox "The local system is not connected to a network!"
    Else
        MsgBox "The local system is connected to a " + IIf(Ret = NETWORK_ALIVE_AOL, "AOL", IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network!"
    End If
End Sub


[CyberNut]

2 Мика : Благодарю!