Что нового

Ищу человека, с кем можно советоваться в случае чего, реализовывать идеи

louie1743shkirondo

Новичок
Сообщения
28
Репутация
0
Ищу человека, с кем можно советоваться в случае чего, с которым можно кодить, реализовывать идеи и с которым можно было бы разобраться в запросах к VK API с Autoit...
Если что, можете добавлять..
https://vk.com/idlouie1743


P.S.
Да, если несложно, могли бы сказать, что можно доработать в это скрипте?
Код:
#include <String.au3>
#include <Array.au3>
#include <File.au3>
#include <IE.au3>

HotKeySet("{ESC}", "Close")

Rand()




VK()

Func VK()
$Date = @MDAY & "." & @MON & "." & @YEAR & "  " & @HOUR & ":" & @MIN & ":" & @SEC
$Shell = "https://vk.com/id" & $ID

Rand()

$IE = _IECreate($Shell, 0, 0)
$Url = _IEPropertyGet($IE, "innerHTML")
$qIE = _IEQuit($IE)
;$Name = _StringBetween($Url, 'page_name">', '<')
$HeadLine = _StringBetween($Url, 'current_text">', '<')
;$Text = _StringBetween($Url, 'Композиция, которую ', '"')  ; '"back":"'  '"' | 'alt=\"'  '\"' | '\"'  '\"' | 'Композиция, которую '  '"' | 'ciAppTip":"'  ' сейчас играет в эту игру"'
If $HeadLine <> 0 Then
   Global $File = @ScriptDir & "\States.txt"
   If Not FileExists($File) Then _FileCreate($File)
	   GLobal $FileOpen = FileOpen($File)
	  Global $z = ""
	  For $z In $HeadLine
		 FileWrite($File, $Date & @CRLF & $z & '   |' & $Shell &  '   ||' & $ID & @CRLF) ; & '   |'& $Text &
	  Next
	  Global $b = ''
	  For $b In $HeadLine
		 $x = 1500
		 $y = 750
		 ToolTip($b & @CRLF & $Date, $x, $y, 'Статус:', $b, 4)
		 Sleep(100)
	  Next
	  VK()
Else
   VK()
EndIf
EndFunc

Func Rand()
   Global $ID = Random(0, 9, 1)
   $Kolvo = Random(2, 9, 1)
   For $i = 0 To $Kolvo
	  $Number = Random(0, 9, 1)
	  $ID = $ID & $Number
	  $i = $i + 1
   Next
EndFunc


Func Close()
   Exit
EndFunc
 
Сообщения
142
Репутация
-3
Могу советовать, кодить, реализовывать. Условия кабальные.
 
Верх