Что нового

Самый первый скрипт, которым вы гордитесь?

Suppir

Продвинутый
Сообщения
967
Репутация
62
Какой бы самый первый ваш скрипт, которым вы действительно гордились? :smile:
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,669
Репутация
2,463
Мой первый скрипт это был гибрид, смесь батника с AutoIt'ом. Что получилось в итоге судите сами (хотя разработку утилиты давно уже забросил, т.к изменения в опере стали делаться чаще чем я заглядывал в код этой утилиты): Op_Backup&Rpp


Добавлено:
Сообщение автоматически объединено:

P.S
Кстати, как раз из нужды создания данной утилиты, я стал изучать AutoIt, так что этой утилитой могу гордиться не только я, но и все участники данного форума, т.к без неё этот форум скорее всего не существовал бы :laugh:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
К моему глубокому сожалению, тот скрипт, которым бы я мог гордиться, еще не написан... :(
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,716
Самый первый скрипт - Boot Manager (только первая версия).
Самый последний скрипт - Calculator.
 

dwerf

Использует ArchLinux
Сообщения
478
Репутация
219
Suppir сказал(а):
Какой бы самый первый ваш скрипт, которым вы действительно гордились? :smile:
Первый, был не просто тестом и работал. Выглядел примерно так:
Код:
#include <WindowsConstants.au3>

$Form1 = GUICreate('ClickMe', 150, 30, -1, -1, BitOR($WS_POPUP, $DS_SETFOREGROUND), $WS_EX_TOPMOST)
$Button = GUICtrlCreateButton('Click me', 0, 0, 150, 30)

GUISetState()

While 1
	$gci = GUIGetCursorInfo()
	If $gci[4] = $Button Then
		WinMove($Form1, '', Random(0, @DesktopWidth-150, 1), Random(0, @DesktopHeight-30, 1))
	ElseIf GUIGetMsg() = $Button Then
		GUISetState(@SW_HIDE)
		MsgBox(0, ';-)', 'Умный да?')
		Exit
	EndIf
WEnd
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Если не считать "Привет Мир", то первый - это автоматизация 1С 7.7 (вход под любым пользователем
без пароля + автомат МОДа - Менеджер Обмена Данными).
Гордиться, наверное, можно написанием скрипта для Центра Занятости
(рассылка через Outlook Express на запросы работодателей/соискателей вакансий/резюме ... долго объяснять)
 

sendsay

sendsay
Сообщения
29
Репутация
0
Мой первый скрипт это автоматизация программы ArtMaster для ООО "Артель" на которой работаю. Так как интерфейс программы АртМастер не удобен пришлось писать скрипт для упрощения работы (нажал кнопку выполнил много операций). На данный момент имею версию 2.7 и новый скрипт на базе старого 1.0 но с новым взглядом на работу AutoIT (совершенно новый подход). Вот этим я действительно горжусь!!!!! ;D
 

Kalisnik

Эволюция
Сообщения
295
Репутация
63
Аналогично как и madmasles, гордиться пока нечем (хотя, я думаю, что в отличии от меня он скромничает :smile:). Слишком многому предстоит еще научится и сделать. Первый скрипт: "Антивирус "Шушка". Который я и предоставил знакомуму на просьбу защитить его ПК. Какого было его удивление, когда после запуска "Шушки" компьютер стал сам двигать мышкой, выполнять какие-то опирации, включать музыку и еще что-то объяснять в окошках системных сообщений (мыл не на то нажал, нажми на это), не знаю. ))
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Вот моя первоя програмка на Autoit-е: My IShut.rar.

Думаю по названию всё ясно. ;)
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,602
Репутация
941
Ботнет, многооконный сетевой кросс компьютерный с гибким настраиваемым ии-сервером
 

svigelf

Знающий
Сообщения
61
Репутация
17
мой самый первый скрипт :

Статистика для моего сервера)) вооот
Код:
DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUICreate("Статистика",146,20)
GUISetState(@SW_SHOW)

GuiCtrlCreateLabel("Login Server  :", 5, 5)


    $sIp = ('***.***.***.***:****')
TCPStartup()
$aIp = StringSplit($sIp, ':')
$socket = TCPConnect($aIp[1], $aIp[2])
If @error Then
	GuiCtrlCreateLabel("OFFLINE!", 85, 5)
    GUICtrlSetColor( -1, 0xFF0000)
Else
    GuiCtrlCreateLabel("ONLINE!", 85, 5)
    GUICtrlSetColor( -1, 0x009900)
EndIf
TCPShutdown()


Func BeginPing1()
    $sIp = ('***.***.***.***:****')
TCPStartup()
$aIp = StringSplit($sIp, ':')
$socket = TCPConnect($aIp[1], $aIp[2])
If @error Then
	GuiCtrlCreateLabel("OFFLINE!", 85, 5)
    GUICtrlSetColor( -1, 0xFF0000)
Else
    GuiCtrlCreateLabel("ONLINE!", 85, 5)
    GUICtrlSetColor( -1, 0x009900)
EndIf
TCPShutdown()
EndFunc

AdlibRegister("BeginPing1", 20000)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
 

Nik_rus

Python The Snake.
Сообщения
214
Репутация
62
http://autoit-script.ru/index.php?topic=2257.0
JAdmin с плагинами.
 

dronet

Знающий
Сообщения
46
Репутация
8
Мне нужна была организация скрытой установки или удаления програмы
Вот написал такое творение при помоши справки, ушло гдето пол дня.
Суть такова запускает батник Setup который устанавливает прогу потом батник Setup создаёт другой батник Unist с содержанием уже для удаления программы.
Вот :laugh:
Код:
#NoTrayIcon
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
Global $file1='Setup.cmd', $file2='Unist.cmd'
If FileExists ( @ScriptDir&'\'&$file1 ) Then
    RunWait ( @ScriptDir&'\'&$file1, "", @SW_HIDE)
	Exit
EndIf
If FileExists ( @ScriptDir&'\'&$file2 ) Then
    RunWait ( @ScriptDir&'\'&$file2, "", @SW_HIDE)
	Exit
Else
	MsgBox(0, "Ошипка!", Не найден не один фаил установки и деинсталяции!' &@CRLF& ' Программа будет закрыта!')
EndIf

Я вот увлекаюсь тем что качаю фильмы с нета, соотведственно с коментариями рядом с фильмом в текстовом файле. И решил зделать программку которая будет коменты мне сохранять рядом с фильмом с таким-же названием и правильно организовывать текст в текстовом фаиле.
Паралельно занимаюсь скриптом от Yashied - TreeView, для каких целей пока не знаю, потом видно будет к готовой форме можно будет прикрутить что угодно
:beer:
 
Верх