Enforcer

When adding my bot to any channel - cant recieve any messages :(( log gives like this: MSG#-1001195506482# - testbot: MSG#-1001195506482# - testbot: MSG#-1001195506482# - testbot: MSG#-1001195506482# - testbot: MSG#477888592# - Johnnie: test MSG#477888592# - Johnnie: -301864711Хьюстон MSG#477888592# - Johnnie: -301864711Хьюстон MSG#271673891# - Denis: -301864711Хьюстон MSG#271673891# - Denis: -301864711Хьюстон Bot source look like this: #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=Cryply.ico #AutoIt3Wrapper_UseUpx=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include "../Telegram.au3" #include <Inet.au3> #include <Array.au3> #include <String.au3> #include <StringConstants.au3> HotKeySet("{PAUSE}","_Exit") ;Press 'PAUSE' on your keyboard to force-exit the script $Token = '558290450:AAFEAM2pfNr7j0IFME-nJTBfCNeiuNNaAmE' ;Insert here your token _InitBot($Token) ;-------------------------------------- %0A Global $price = "" Global $status = "" Global $lowhigh = "" Global $altprice = "" ;-------------------------------------- %0A While 1 $msgData = _Polling() ;;;;; ConsoleWrite("Incoming message from " & $msgData[3] & ": " & $msgData[5] & @CRLF) ;TrayTip($msgData[3]," user: " & $msgData[5],0) ;_SendMsg($msgData[2],$msgData[5]) <<<< https://youtu.be/30g356XW-nQ FileWrite(@ScriptDir&"\Cryply.log","MSG#"& $msgData[2] &"# - " & $msgData[4] & ": " & $msgData[5] & $msgData[6] & $msgData[7] & @CRLF) if StringInStr($msgData[5],"!test" ) or StringInStr($msgData[5],"!тест") Then ;-------------------------------------- _SendMsg($msgData[2],"Works fine...") endif if StringInStr($msgData[5],"!admin") or StringInStr($msgData[5],"!author") or StringInStr($msgData[5],"!about") or StringInStr($msgData[5],"!автор") or StringInStr($msgData[5],"!админ") Then ;-------------------------------------- _SendMsg($msgData[2],"Неофициальный Крипли Бот v1.2 %0AАвтор Johnnie Walker %0AЕ-мейл: xbitnik@gmail.com") endif if StringInStr($msgData[5],"!mining") or StringInStr($msgData[5],"!майнинг") Then ;-------------------------------------- _SendMsg($msgData[2],"Обучающее видео по майнингу для новичков:%0A https://youtu.be/30g356XW-nQ") endif if StringInStr($msgData[5],"!moon") or StringInStr($msgData[5],"!tothemoon") or StringInStr($msgData[5],"/moon") or StringInStr($msgData[5],"/tothemoon") or StringInStr($msgData[5],"/themoon") Then ;-------------------------------------- _SendMsg($msgData[2],"If you want CRYPLY to the moon, start doing something. Anyone can help and every donat is important to us :) И Я, конечно, ни на что не намекаю... ") endif if StringInStr($msgData[5],"!links") or StringInStr($msgData[5],"!gettingstarted") or StringInStr($msgData[5],"!ссылки") or StringInStr($msgData[5],"!urls") Then ;-------------------------------------- _SendMsg($msgData[2],"" & _ "Сайт: https://cryply.io"& _ "%0AФорум: https://bitcointalk.org/index.php?topic=2634468.0;all"& _ "%0AОбменник: https://crex24.com/ru/exchange/CRP-BTC"& _ "%0AСтаты: https://www.coingecko.com/en/price_charts/cryply/usd"& _ "%0A%0AКошельки: https://goo.gl/gfx5Xv"& _ "%0AМайнеры: https://goo.gl/rb2zRb"& _ "%0AПулы: https://cryply.luckypool.org и https://p2pool.work%0A%0A") endif if StringInStr($msgData[5],"!info" ) or StringInStr($msgData[5],"!инфо") or StringInStr($msgData[5],"/start") Then ;-------------------------------------- ;"%0A!stats / !статы - полезная статистика манетки"& _ _SendMsg($msgData[2],"Список доступнык комманд: " & _ "%0A!info / !инфо - данная справка"& _ "%0A!links / !ccылки - ссылки на полезные ресурсы"& _ "%0A!price / !цена - текущая цена манетки"& _ "%0A!mining / !майнинг - майнинг видео для новичков"& _ "%0A!author / !автор - контактные данные автора") endif if StringInStr($msgData[5],"!time") or StringInStr($msgData[5],"!время") Then ;-------------------------------------- _SendMsg($msgData[2],"The time is: "&@HOUR&":"&@MIN&":"&@SEC) endif if StringInStr($msgData[5],"!price") or StringInStr($msgData[5],"!цена") Then ;-------------------------------------- $Text = _INetGetSource('https://coinlib.io/coin/CRP/Cryply',true) $source = _StringBetween($Text, "$&nbsp;"," </span>") If Not @error Then $price = "$ "&$source[0] Else $price = "?" endif $source = _StringBetween($Text, 'id="coin-price-delta">','</span>') If Not @error Then $status = StringReplace($source[0],@LF,"") Else $status = "?" endif $source = _StringBetween($Text, 'coin-high-low">',' </div>') If Not @error Then $lowhigh = StringReplace(StringReplace($source[0],"&nbsp;"," "),@LF,"") Else $lowhigh = "?" endif $source = _StringBetween($Text, 'price text-left pl-2">BTC','</span>') If Not @error Then $altprice = StringReplace($source[0],@LF,"") Else $altprice = "?" endif ;MsgBox(0,"Price",$price) ;MsgBox(0,"Status",$status) ;MsgBox(0,"LowHigh",$lowhigh) ;MsgBox(0,"ALtprice","BTC "&$altprice) _SendMsg($msgData[2], "" _ &"Цена крипли в USD: "&StringStripWS($price,8) _ &"%0AЦена крипли в BTC: "&StringStripWS($altprice,8) _ &"%0AУровни за сутки: "&StringStripWS($lowhigh,8)&@CRLF _ &"%0AРейтинг: "&StringStripWS($status,8) _ &"%0AЗа 1000 CRP вы получите: "&StringStripWS(StringReplace($price,"$ ",""),8)*1000&" $") ;_SendMsg($msgData[2],"Cryply rate: "&$status) ;_SendMsg($msgData[2]," - - - - - - - - - - - ") ;_SendMsg($msgData[2],"10 Cryply = "&StringReplace($price,"$ ","")*10) ;_SendMsg($msgData[2],"50 Cryply = "&StringReplace($price,"$ ","")*50) ;_SendMsg($msgData[2],"100 Cryply = "&StringReplace($price,"$ ","")*100) ;_SendMsg($msgData[2],"1000 Cryply = "&StringReplace($price,"$ ","")*1000) ;_SendMsg($msgData[2],"1500 Cryply = "&StringReplace($price,"$ ","")*1500) ;_SendMsg($msgData[2],"2000 Cryply = "&StringReplace($price,"$ ","")*2000) ;_SendMsg($msgData[2],"5000 Cryply = "&StringReplace($price,"$ ","")*5000) ;_SendMsg($msgData[2],"10000 Cryply = "&StringReplace($price,"$ ","")*10000) ;_SendMsg($msgData[2]," - - - - - - - - - - - ") ;_SendMsg($msgData[2],"Stats based on coinlib.io/coin/CRP/Cryply") endif ;-------------------------------------------------------------------------- WEnd Func _Exit() Exit 0 EndFunc Please HELP !

LazyCat, Hi, maybe you should share Koda's sources over here, so someone can continue programming your project ? What do you think about that ? Будет обидно если сурсы потеряются и труд пойдет на смарку, как думаешь ?

Hello everyone. I'm wondering if its possible: I want to try create a simple autoit script that will 1) first he must connect to some IP in internet port 80 2) then he must listen for incoming connections from other IP'S ports 8000 - 8200 [in total over 200 connections] 3) that script must send all recieved data from that [IP in internet port 80 ] to [other IP'S ports 8000 - 8200] is that very hard to do ? Any suggestions or maybe some similar examples that can help me to do this ? all those 200 connections must receive data at the same time at once is it possible to do so ?

Hello, just sharing my good old CPU, RAM, TIME widget. CONTY.rar

Hello, just want to share my old unfinished video player project. I don't know if this is the right topic to post this... To test run: Digital.TV.au3 Easy-TV.rar

Hmmm, tried to make this thing work with my synology. Corrected login parameters, Started script waited for 4 minutes nothing happened... Weird... We need also some functions to work with download station... for example - add new task (url download) I'l try to do this by myself ...

Hello, I want to know - there is function to create always on top GUI, it's good, but what if I need to create always on back window, even if I try to activate it it must be on the back ? can you help me ? Making desktop notes gadget.

Nope, not this. Cursor blinks (like "loading" mode) each time this loop is running, need to fix it somehow

Hi every one can someone can tell how to fix "loading" mouse pointer when runing InetGet function Simple script: While 1 $hDownload = InetGet("http://testurl, @TempDir & "\test.txt", 1, 1) Do Sleep(1) Until InetGetInfo($hDownload, 2) InetClose($hDownload) Sleep(1000) WEnd

Hello everyone I'm building interface for a small program that will monitor all printers in our office and right now i got problems with painting background or at least text color in specified cell I mean where is black [named B] column, I need to paint all text in this column in black, where is cyan [named C] column, I need to paint in cyan color... As I sayd I need to paint background of the cell or at least text color... Will be even beter if someone can show me how to make text blink in specified cell (for blinker when cartrige will be empty) I attached almost finished interface... http://sendfile.su/814884 Sorry for my english and please help... #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GuiStatusBar.au3> #include <ListViewConstants.au3> #include <WinAPI.au3> #include <GuiListView.au3> #include <GuiImageList.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Misc.au3> #include <Inet.au3> ;Global $font = "Tahoma" Global $font = "MS Sans Serif" Global $spacerx = 100 Global $spacery = 27 if _Singleton("XOBSERVATORY-By-Bitnik",1) = 0 Then Msgbox(0,"Warning","Program already running... ") Exit EndIf #Region ### START Koda GUI section ### Form=Looky.kxf $GUI = GUICreate("Observatory V1.5 by Binik", 1000+$spacerx, 681+$spacery, 228, 151) $HEADER = GUICtrlCreatePic("Object.bmp", 0, 0, 0, 0) $StatusBar1 = _GUICtrlStatusBar_Create($GUI) $STAT = GUICtrlCreateInput(" Status: Idle...", 17, 113, 885+$spacerx, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY)) GUICtrlSetFont(-1, -1, 400, 0, $font) $RESTART = GUICtrlCreateButton(" Restart ", 909+$spacerx, 110, 75, 25) GUICtrlSetFont(-1, -1, 400, 0, $font) GUICtrlCreateGroup("", 8, 96, 984+$spacerx, 49) $LIST = GUICtrlCreateListView(" Printer Name | IP Adress | Working Kit | B | Y | M | C | B | Y | M | C ", 8, 156, 984+$spacerx, 493+$spacery, BitOR($LVS_SHOWSELALWAYS, $LVS_SINGLESEL, $LVS_NOSORTHEADER, $LVS_REPORT)) _GUICtrlListView_SetExtendedListViewStyle($LIST, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER)) GUICtrlSetColor(-1, 0x999999) ;779D31 COLOR GUICtrlSetFont(-1, -1, 600, 0, $font) ;FONT $LISTIMGX = _GUIImageList_Create(16, 16) _GUIImageList_AddBitmap($LISTIMGX, @ScriptDir & "\Object.01") _GUICtrlListView_SetImageList($LIST, $LISTIMGX, 1) _GUICtrlListView_SetColumn($LIST, 0, "Printer Name", 210, 0) _GUICtrlListView_SetColumn($LIST, 1, "IP Adress", 180, 2) _GUICtrlListView_SetColumn($LIST, 2, "Working Kit", 210, 2) _GUICtrlListView_SetColumn($LIST, 3, "B", 60, 2) _GUICtrlListView_SetColumn($LIST, 4, "Y", 60, 2) _GUICtrlListView_SetColumn($LIST, 5, "M", 60, 2) _GUICtrlListView_SetColumn($LIST, 6, "C", 60, 2) _GUICtrlListView_SetColumn($LIST, 7, "B", 60, 2) _GUICtrlListView_SetColumn($LIST, 8, "Y", 60, 2) _GUICtrlListView_SetColumn($LIST, 9, "M", 60, 2) _GUICtrlListView_SetColumn($LIST, 10, "C", 60, 2) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### _GUICtrlListView_AddItem($LIST, " FL 1.1 (CLR_CM6040)",0) _GUICtrlListView_AddSubItem($LIST, 0, "999.999.999.999", 1, 1) _GUICtrlListView_AddSubItem($LIST, 0, "Maintenance Kit - 100%", 2,0) _GUICtrlListView_AddSubItem($LIST, 0, "100%", 3, 1) _GUICtrlListView_AddSubItem($LIST, 0, "100%", 4, 1) _GUICtrlListView_AddSubItem($LIST, 0, "100%", 5, 1) _GUICtrlListView_AddSubItem($LIST, 0, "100%", 6, 1) _GUICtrlListView_AddSubItem($LIST, 0, "100%", 7, 1) _GUICtrlListView_AddSubItem($LIST, 0, "100%", 8, 1) _GUICtrlListView_AddSubItem($LIST, 0, "100%", 9, 1) _GUICtrlListView_AddSubItem($LIST, 0, "100%", 10, 1) _GUICtrlListView_AddItem($LIST, " FL 1.1 (CLR_CM6040)",0) _GUICtrlListView_AddSubItem($LIST, 1, "999.999.999.999", 1, 1) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd

noone knows whats the problem ?

It shows this: http://i.pixs.ru/storage/6/1/1/infopng_9791996_7956611.png I know that it can be shorter, but I dodn't programed for a long time and forgot almost everything... = And right now our company need printer monitoring system that i trying to make and the only problem right now is to sort windows on the screen

Hello everyone, I've got a problem when i runing this script - somehow the second window is not moving... I don't know why, can any one help ? script is runing program and trying to sort windows on the desktop... ; СОРТИРУЕМ ОКНА... ;#NoTrayIcon #RequireAdmin #include <Constants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <Misc.au3> #include <WinAPI.au3> #include <File.au3> #include <EditConstants.au3> #include <GUIConstants.au3> #include <Date.au3> #include <String.au3> #include <Inet.au3> #include <Misc.au3> Global $NM = 0, $YO = 1 Global $shirina = 201 Global $visota = 200 Global $otstup = 20 $go = _FileCountLines('Looky.ips') for $i=0 to $go-1 Step 1 Run("Looky.exe") WinWait("BiT-Looky-"&$i) sleep(2000) Next WinWait("BiT-Looky-"&$go-1) ;MsgBox(0,"","go") if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+10, 5) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina+10, 5) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*2+10, 5) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*3+10, 5) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*4+10, 5) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*5+10, 5) $NM = $NM + 1 endif ;~ ;;;;;;;; if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+10, 5+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina+10, 5+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*2+10, 5+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*3+10, 5+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*4+10, 5+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*5+10, 5+$visota) $NM = $NM + 1 endif ;~ ;;;;;;;; if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+10, 5+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina+10, 5+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*2+10, 5+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*3+10, 5+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*4+10, 5+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*5+10, 5+$visota+$visota) $NM = $NM + 1 endif ;~ ;;;;;;;; if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+10, 5+$visota+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina+10, 5+$visota+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*2+10, 5+$visota+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*3+10, 5+$visota+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*4+10, 5+$visota+$visota+$visota) $NM = $NM + 1 endif if WinExists("BiT-Looky-"&$NM) then WinMove("BiT-Looky-"&$NM, "", $otstup+$shirina*5+10, 5+$visota+$visota+$visota) $NM = $NM + 1 endif ;WinMove("BiT-Looky-1", "", $otstup+$shirina+10, 5)

Can't find anything about this problem on forums eather. Don't know what to do... hmmm ControlGetText not woking here or i'm doing something wrong.