Логинит аськи в записанные в файле.

http://xwab.mobi/forum/topic16137 - как обещал)))

---для тех, кто хочет знать больше =)---
#include 'ICQ.au3'
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <File.au3>

Opt('TrayMenuMode', 1)

Global $PN = 'ICQ On-Line', $File = 'Nums.txt'

GUICreate($PN, 250, 60)
$Start = GUICtrlCreateButton('В онлайн', 150, 10, 80, 20)
GUISetFont(-1, 400, -1, 'Werdana')

$Count = _FileCountLines($File)
$Label = GUICtrlCreateLabel("UIN'ов а файле: " & $Count, 10, 14, -1, 18)

$Copy = GUICtrlCreateLabel('Fever, 2010', 100, 40)
GUICtrlSetFont(-1, -1, 800)

GUISetState()

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Start
$Count = _FileCountLines($File)

For $i = 1 To $Count
$Read = FileReadLine($File, $i)
$Data = StringSplit($Read, ':')
If ICQConnect('login.icq.com:5190', $Data[1], $Data[2], 0) <> 1 Then
MsgBox(16, 'Ошибка', 'Номер (' & $Data[1] & ') не был соединён.')
EndIf
If $Count - $i > 0 Then
TrayTip($PN, 'Ещё ' & $Count - $i & ' номер(ов)...', 10)
EndIf
Next
MsgBox(64, $PN, 'Подключение номеров закончено!')
EndSwitch
WEnd

Отправляет юин на мыло скорее всего, зачем тогда 110 порт открывает? Исходник модеру ты конечно дашь переделанный где уберешь эту часть кода, а что делать с теми чьи юины ты уже получил?

убейте меня об стену
---
доказать я ничего не могу, но есть много людей на этом форуме, которые знают меня с хорошей стороны, так что придётся верить наслово
---
прув что используется 110 порт покажеш?

Fever, да невопрос, былбы ты рядом! Убить конечно не убилбы но п*****а конкретного получилбы! В следующий раз может зналбы как в чужие тымы лезть со своими галимыми троями. И почему я должен доказывать, сам доказывай! Меня на этом форуме тоже многие люди знают! Но яж не лезу к каждому в тему!

Fever, давай!