HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуВставка текста в edit ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 245
Рейтинг: 4
#1: 2018-09-02 12:28:23 ЛС | профиль | цитата
Короче хочу сделать чтоб 1с открывалось сама без выбора базы, пользователя и ввода пороля. Не выходит вставить пароль в поле Edit, через буфер обмена не работает. Как ещё можно воткнуть его туда.
Screenshot_2018-09-02-13-08-31-108_com.teamviewer.teamviewer.market.mobile.png
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 632
Рейтинг: 4
#2: 2018-09-02 13:50:33 ЛС | профиль | цитата
ric писал(а):
Короче хочу сделать чтоб 1с открывалось сама без выбора базы, пользователя и ввода пороля. Не выходит вставить пароль в поле Edit, через буфер обмена не работает. Как ещё можно воткнуть его туда.

Нужно схема, не очень понятно что нужно.
Сделал, если пароль верный то пускает в базу. 

Add(MainForm,2953706,21,105)
{
 link(onCreate,10148361:doEvent1,[(69,125)(69,160)])
}
Add(Edit,13479391,189,105)
{
 Left=110
 Top=110
 Text="11"
 DataType=1
 link(onChange,10148361:doEvent2,[(233,111)(233,139)(72,139)(72,167)])
}
Add(If_else,2087131,133,203)
{
 Op1=Integer(0)
 link(onTrue,9810545:doData,[(173,209)(173,202)])
 link(Op1,6647748:Value,[(139,159)(146,159)])
 link(Op2,13479391:Text,[(146,170)(195,170)])
}
Add(ChildForm,7790007,238,196)
{
}
BEGIN_SDK
  Add(EditMulti,9159222,21,21)
  {
   WorkCount=1
   link(doWork1,13927539:doVisible,[(28,27)(28,139)])
  }
  Add(MainForm,13927539,35,105)
  {
   Left=35
   Top=105
   Visible=1
   Point(doVisible)
  }
END_SDK
Add(DoData,9810545,189,196)
{
 Data=Integer(1)
 link(onEventData,7790007:doWork1,[])
}
Add(Hub,10148361,84,154)
{
 InCount=2
 OutCount=1
 link(onEvent1,2087131:doCompare,[(93,209)])
}
Add(Memory,6647748,140,84)
{
 Default=String(11)
}
Add(InfoTip,1014592,112,63)
{
 Info=#13:Верный пароль|
 Width=71
 Height=74
}
Add(InfoTip,6638960,210,175)
{
 Info=#4:База|
 Width=85
 Height=74
}

Через буфер 

Add(MainForm,2953706,21,105)
{
 link(onCreate,1865757:doData,[(69,125)(69,111)])
}
Add(Edit,13479391,189,105)
{
 Left=110
 Top=110
 Text="11"
 DataType=1
 link(onChange,10148361:doEvent2,[(233,111)(233,139)(72,139)(72,167)])
}
Add(If_else,2087131,133,203)
{
 Op1=Integer(0)
 link(onTrue,9810545:doData,[(173,209)(173,202)])
 link(Op1,6647748:Value,[(139,159)(146,159)])
 link(Op2,13479391:Text,[(146,170)(195,170)])
}
Add(ChildForm,7790007,238,196)
{
}
BEGIN_SDK
  Add(EditMulti,9159222,21,21)
  {
   WorkCount=1
   link(doWork1,13927539:doVisible,[(28,27)(28,139)])
  }
  Add(MainForm,13927539,35,105)
  {
   Left=35
   Top=105
   Visible=1
   Point(doVisible)
  }
END_SDK
Add(DoData,9810545,189,196)
{
 Data=Integer(1)
 link(onEventData,7790007:doWork1,[])
}
Add(Hub,10148361,84,154)
{
 InCount=2
 OutCount=1
 link(onEvent1,2087131:doCompare,[(116,160)(116,209)])
}
Add(Memory,6647748,140,84)
{
 Default=String(11)
}
Add(InfoTip,1014592,112,63)
{
 Info=#13:Верный пароль|
 Width=71
 Height=74
}
Add(InfoTip,6638960,210,175)
{
 Info=#4:База|
 Width=85
 Height=74
}
Add(ClipboardHook,2811475,105,7)
{
 link(onChange,2090800:doEvent1,[(149,13)])
}
Add(Clipboard,16582599,77,56)
{
}
Add(DoData,1865757,84,105)
{
 link(onEventData,2090800:doEvent2,[(132,111)(132,34)])
 link(Data,16582599:Text,[(90,97)(83,97)])
}
Add(Hub,2090800,147,21)
{
 InCount=2
 OutCount=1
 link(onEvent1,13479391:doText,[(149,111)])
}
карма: 0

0
Ответов: 245
Рейтинг: 4
#3: 2018-09-02 14:32:48 ЛС | профиль | цитата
Спасибо вечером посмотрю, сейчас нет возможности с тела зашол.
карма: 1

0
Ответов: 245
Рейтинг: 4
#4: 2018-09-02 18:25:22 ЛС | профиль | цитата
Вот кусок схемы через буфер вставляет три символа потом по одному бесконечно пока работает таймер а без него не как не выходит, пока грузится 1с прога ищет окно.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,259,301)
{
 Width=331
 Height=203
 link(onCreate,2019802:doExec,[])
}
Add(WinEnum,1736614,462,315)
{
 VisibleOnly=1
 link(onFindWindow,1188678:doCompare,[])
}
Add(StrMask,1188678,518,315)
{
 Mask="Авторизация*"
 link(onTrue,11093269:doEvent1,[])
}
Add(FindWindow,9380362,462,392)
{
 ClassName="Edit"
 SkipParam=1
 link(onFind,15981550:doCompare,[])
 link(ParentHandle,5569049:Var2,[])
}
Add(Hub,11093269,560,322)
{
 link(onEvent1,1736614:doStop,[(585,328)(585,304)(441,304)(441,335)])
 link(onEvent2,9380362:doFindChild,[(586,335)(586,370)(450,370)(450,405)])
}
Add(If_else,15981550,511,392)
{
 Op2=Integer(0)
 link(onFalse,4949313:doEvent1,[(555,405)(555,429)(415,429)(415,482)])
}
Add(Hub,4949313,427,476)
{
 OutCount=3
 link(onEvent1,6982201:doSetText,[])
 link(onEvent2,6982201:doPut,[])
 link(onEvent3,15606624:doWinInfo,[(476,496)(476,489)])
}
Add(FindWindow,14645083,658,483)
{
 ClassName="Button"
 Caption="OK"
 link(onFind,12580489:doSendMessage,[])
 link(ParentHandle,5569049:Var3,[(664,362)])
}
Add(SendMessage,12580489,707,483)
{
 Point(Message)
 link(Message,14207121:Var,[])
}
Add(GlobalVar,14207121,728,455)
{
 Name="245"
 Data=Integer(245)
}
Add(GetDataEx,5569049,462,357)
{
 link(Data,1736614:Handle,[])
}
Add(Hub,11040012,616,483)
{
 link(onEvent1,11489438:doStop,[(642,489)(642,445)(364,445)(364,328)])
 link(onEvent2,14645083:doFindChild,[])
}
Add(GetDataEx,9345157,462,427)
{
 link(Data,9380362:Handle,[])
}
Add(MMTimer,11489438,378,315)
{
 Enable=1
 link(onTimer,1736614:doEnum,[])
}
Add(ClipboardHook,6982201,455,476)
{
 DataStream=0
 Point(Handle)
 link(Text,4897208:Var1,[(461,457)])
 link(Handle,9345157:Var2,[])
}
Add(If_else,12465453,567,483)
{
 link(onTrue,11040012:doEvent1,[])
 link(Op1,15606624:Caption,[(573,471)(549,471)(549,527)(524,527)])
 link(Op2,4897208:Var2,[])
}
Add(WinInfo,15606624,511,483)
{
 link(onWinInfo,12465453:doCompare,[])
 link(Handle,9345157:Var3,[(517,432)])
}
Add(Edit,679552,588,399)
{
 Left=45
 Top=10
 Text="123"
}
Add(WinExec,2019802,315,315)
{
 FileName=""C:\\Program Files (x86)\\1Cv77\\BIN\\1cv7s.exe""
 link(onExec,11489438:doTimer,[])
}
Add(GetDataEx,4897208,574,452)
{
 Angle=1
 link(Data,679552:Text,[(594,457)])
}
карма: 1

0
Ответов: 253
Рейтинг: 0
#5: 2018-10-01 16:55:39 ЛС | профиль | цитата
Можно еще попробовать через AutoHotkey. Где скачать сам найдешь
Вот пример 

Add(MainForm,2953706,21,105)
{
 Width=151
 Height=131
}
Add(FormatStr,3760524,273,140)
{
 DataCount=3
 Mask="BlockInput, on\r\nRun, notepad.exe\r\nSleep, 1000\r\nSendMessage, 0x50,, 0x4090409,, A \r\nSleep, 1000\r\nSendRaw,Логин:%1\r\nSend, {Enter}\r\nSendRaw,Пароль:%2\r\nBlockInput, off\r\nExitApp\r\n"
 Point(FString)
 link(onFString,14531956:doEvent1,[(310,146)(310,153)])
 link(Str1,9852780:Text,[(279,114)(230,114)])
 link(Str2,13091600:Text,[(286,112)(325,112)])
}
Add(StrList,12447224,399,140)
{
 FileName="auto.ahk"
 link(onChange,9536635:doTimer,[(436,146)(436,153)])
 link(Str,3760524:FString,[(405,128)(325,128)(325,184)(279,184)])
}
Add(Hub,14531956,357,147)
{
 OutCount=3
 link(onEvent1,12447224:doClear,[])
 link(onEvent2,12447224:doAdd,[(389,160)(389,146)])
 link(onEvent3,12447224:doSave,[(389,167)(389,181)])
}
Add(WinExec,4305364,532,140)
{
 FileName="auto.ahk"
 Point(doConsoleExec)
}
Add(Hub,10974756,483,140)
{
 link(onEvent1,4305364:doShellExec,[(515,146)(515,153)])
}
Add(Timer,9536635,441,147)
{
 Enable=1
 AutoStop=1
 link(onTimer,10974756:doEvent1,[(478,153)(478,146)])
}
Add(Button,8335356,224,140)
{
 Left=15
 Top=55
 Width=65
 Caption="Отправить"
 link(onClick,3760524:doString,[])
}
Add(Edit,9852780,224,56)
{
 Left=15
 Top=10
 Text="Login"
}
Add(Edit,13091600,319,53)
{
 Left=15
 Top=30
 Text="pass"
}

Также там есть эмуляция мыши. я думаю разберешься
карма: 0

0
5
ФорумыПомощь по пакетуВставка текста в edit ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика