HiAsm

Форумы Прочее IRC клиент? реально? ← Ctrl12Ctrl →

Ответов: 39

Рейтинг: 1

#1: 2009-05-27 21:46:01 ЛС | профиль | цитата

вот собстно в этом и вопрос
есть такая идея всоздании что-ли бота,или может простого клиента на ИРК,которого можно было бы оставить вместо себя в мирке, или использовать как приемщика файлов,например выполнять команды через него,находясь в другом месте...
вобщем возможностей тьма..

думаю,я не первый,кто задавался этим вопросом,в схемах,на форуме,пролстал страниц 6 первых,нету...поиск-тоже самое-и на старом форуме.
помниться в старых Hiasm 3.65.. и т.п.. внизу,был как-бы встроеный ирк клиент,совсем простой,так может есть что-то подобное.
заранее примного благодарен.

PS немного увлекаюсь таким языком как Pure Basic на нем собрал все же его, может кому понятно,здесь он без феса,абсолютно без ничего,просто заходит на канал и "сидит"


#bas
Global IrcConn
IrcServer$="irc.chelcom.ru"
IrcPort=6667

Procedure SendStr(StringToSend$)
  If SendNetworkString(IrcConn,StringToSend$)
    Debug "SEND> "+StringToSend$
  Else
    Debug "SEND Failed"
  EndIf
EndProcedure

InitNet:
If InitNetwork()
Connect:
  IrcConn=OpenNetworkConnection(IrcServer$,IrcPort)
  If IrcConn
    SendStr("NICK user"+Str(Random(9999))+Chr(13)+Chr(10))
    SendStr("USER lookup "+Chr(34)+"irc"+Chr(34)+" "+Chr(34)+IrcServer$+Chr(34)+" :too me"+Chr(13)+Chr(10))
    
    Repeat
      NetEvent=NetworkClientEvent(IrcConn)
      Select NetEvent
      Case 0
        ;Nothing
      Case 2
        ;Raw data
        *IrcData=AllocateMemory(1024)
        IrcDataLen=1024
        ReceiveNetworkData(IrcConn,*IrcData,IrcDataLen)
        IrcStr$=PeekS(*IrcData)
        Debug IrcStr$
        BeginInd=FindString(IrcStr$,"PING",1)
        If BeginInd>0
          EndInd=FindString(IrcStr$,Chr(13),BeginInd)
          IrcStr$=Mid(IrcStr$,BeginInd,EndInd-BeginInd)
          IrcStr$=ReplaceString(IrcStr$,"PING","PONG")+Chr(13)+Chr(10)
          SendStr(IrcStr$)
          SendStr("JOIN #canal"+Chr(13)+Chr(10))
        Else
        EndIf
        
        FreeMemory(*IrcData)
      Case 3
        ;File
      Case 5
        ;String
        *IrcData=AllocateMemory(1024)
        IrcDataLen=1024
        ReceiveNetworkData(IrcConn,*IrcData,IrcDataLen)
        IrcStr$=PeekS(*IrcData)
        Debug IrcStr$
        FreeMemory(*IrcData)
      EndSelect
      Delay(100)
    ForEver
  Else
    ;Could not connect
    Delay(20000)
    Goto Connect
  EndIf

Else
  Delay(20000)
  Goto InitNet
EndIf


; IDE Options = PureBasic 4.20 (Windows - x86)
; CursorPosition = 17
; Folding = -
; EnableXP
; Executable = +ip.exe
; CurrentDirectory = E:Program FilesProgrammingPureBasicExamples

карма: 1

файлы: 1 code_13491.txt [1.8KB] [121]

Форумы Прочее IRC клиент? реально? ← Ctrl12Ctrl →