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

[Suppir]

Какой бы самый первый ваш скрипт, которым вы действительно гордились?

 

[CreatoR]

Мой первый скрипт это был гибрид, смесь батника с AutoIt'ом. Что получилось в итоге судите сами (хотя разработку утилиты давно уже забросил, т.к изменения в опере стали делаться чаще чем я заглядывал в код этой утилиты): Op_Backup&Rpp


Добавлено:

Сообщение автоматически объединено: 14 Май 2010

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

 

[madmasles]

К моему глубокому сожалению, тот скрипт, которым бы я мог гордиться, еще не написан... :(

 

[CreatoR]

madmasles [?]

тот скрипт, которым бы я мог гордиться, еще не написан

Речь как я понял про самый первый скрипт...

 

[Yashied]

Самый первый скрипт - Boot Manager (только первая версия).
Самый последний скрипт - Calculator.

 

[dwerf]

Какой бы самый первый ваш скрипт, которым вы действительно гордились?

Первый, был не просто тестом и работал. Выглядел примерно так:

Спойлер

#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

 

[kaster]

Курс 8 видов валют на любой выбранный день и конвертация [Валюта] <-> [Рубль]

 

[Yuri]

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

 

[sendsay]

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

 

[Kalisnik]

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

 

[Zaramot]

Вот моя первоя програмка на Autoit-е: My IShut.rar.

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

 

[CreatoR]

Zaramot [?]

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

Нет :-X

 

[Belfigor]

Ботнет, многооконный сетевой кросс компьютерный с гибким настраиваемым ии-сервером

 

[svigelf]

мой самый первый скрипт :

Статистика для моего сервера)) вооот

Спойлер

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]

http://autoit-script.ru/index.php?topic=2257.0
JAdmin с плагинами.

 

[dronet]

Мне нужна была организация скрытой установки или удаления програмы
Вот написал такое творение при помоши справки, ушло гдето пол дня.
Суть такова запускает батник 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: