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

[louie1743shkirondo]

Ищу человека, с кем можно советоваться в случае чего, с которым можно кодить, реализовывать идеи и с которым можно было бы разобраться в запросах к 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

 

[ЭйчЭйч]

Могу советовать, кодить, реализовывать. Условия кабальные.

 

[Azure]

Могу помогать, советовать и тп.

; =============================================
; NAME: VK_Status_Parser.au3
; TASK: Парсер статусов ВКонтакте
; =============================================

#include <String.au3>
#include <Array.au3>
#include <File.au3>
#include <IE.au3>
#include <MsgBoxConstants.au3>

; --- ГОРЯЧИЕ КЛАВИШИ ---
HotKeySet("{ESC}", "_Exit")

; --- ПЕРЕМЕННЫЕ ---
Global $iMaxIterations = 50 ; Максимальное количество проверок
Global $iDelay = 5000       ; Задержка между запросами (5 сек)

; --- ГЛАВНАЯ ФУНКЦИЯ ---
Func _Main()
    Local $iCount = 0

    While $iCount < $iMaxIterations
        Local $sID = _GenerateID()
        Local $sShell = "[URL]https://vk.com/id[/URL]" & $sID
        Local $sStatus = _GetVKStatus($sShell)

        If $sStatus <> "" Then
            _SaveToFile($sStatus, $sShell, $sID)
            _ShowTooltip($sStatus)
        EndIf

        $iCount += 1
        Sleep($iDelay)
    WEnd

    MsgBox($MB_OK, "Готово", "Проверено " & $iMaxIterations & " страниц.")
EndFunc

; --- ГЕНЕРАЦИЯ СЛУЧАЙНОГО ID ---
Func _GenerateID()
    Local $sID = Random(0, 9, 1)
    Local $iCount = Random(2, 9, 1)

    For $i = 1 To $iCount
        $sID &= Random(0, 9, 1)
    Next

    Return $sID
EndFunc

; --- ПОЛУЧЕНИЕ СТАТУСА СТРАНИЦЫ ---
Func _GetVKStatus($sShell)
    Local $oIE = _IECreate($sShell, 0, 0)
    If @error Then Return ""

    _IELoadWait($oIE, 1000)
    Local $sHTML = _IEDocReadHTML($oIE)
    _IEQuit($oIE)

    ; Ищем статус через регулярное выражение (обновлённый паттерн)
    Local $aStatus = _StringBetween($sHTML, 'page_name">', '<')
    If IsArray($aStatus) And UBound($aStatus) > 0 Then
        Return $aStatus[0]
    Else
        Return ""
    EndIf
EndFunc

; --- СОХРАНЕНИЕ В ФАЙЛ ---
Func _SaveToFile($sStatus, $sShell, $sID)
    Local $sFile = @ScriptDir & "\VK_Statuses.txt"
    Local $sDate = @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC

    Local $hFile = FileOpen($sFile, 1)
    If $hFile = -1 Then
        MsgBox($MB_ICONERROR, "Ошибка", "Не удалось открыть файл для записи.")
        Return
    EndIf

    FileWriteLine($hFile, "[ДАТА] " & $sDate)
    FileWriteLine($hFile, "[ID] " & $sID)
    FileWriteLine($hFile, "[ССЫЛКА] " & $sShell)
    FileWriteLine($hFile, "[СТАТУС] " & $sStatus)
    FileWriteLine($hFile, "----------------------------------------")
    FileClose($hFile)
EndFunc

; --- ПОКАЗ СТАТУСА В TOOLTIP ---
Func _ShowTooltip($sStatus)
    ToolTip("Статус: " & $sStatus, 1500, 750, "VK Parser", 0, 4)
    Sleep(2000)
    ToolTip("")
EndFunc

; --- ВЫХОД ПО ESC ---
Func _E xit()
    MsgBox($MB_OK, "Выход", "Скрипт завершён.")
    Exit
EndFunc

; --- ЗАПУСК ---
_Main()