Tuesday, September 29, 2015

Ubot Code Gen Text Animation (GIF)

clear list(%Chars)
set(#Text,"Hello World","Global")
add list to list(%Chars,$find regular expression(#Text,"[\\w\\n ]"),"Don\'t Delete","Global")
loop($list total(%Chars)) {
set(#Temp,$next list item(%Chars),"Global")
set(#CharCount,$list position(%Chars),"Global")
set(#TextOut,$substring(#Text,0,#CharCount),"Global")
plugin command("Advanced Image.dll", "text to image", #TextOut, "Segoe UI", 90, 000000, "FFFFFF", 700, 300, $plugin function("Advanced Data Text File.dll", "$create file loop name", "{$special folder("Application")}\\Images Out.jpg", "_", 1000, "False"))
}
add list to list(%ImageFiles,$plugin function("Advanced Data Text File.dll", "$get files 2", $special folder("Application"), "*.jpg", "True", "Root Directory Only"),"Delete","Global")
plugin command("Advanced Image.dll", "image to gif", %ImageFiles, "{$special folder("Application")}\\Test Text Gif.gif", 500)

Monday, September 7, 2015

Use Windows Commands Upload File

navigate("http://www.usedokanagan.com/FormInsertUsedAdNew?selected_category_code=house-for-sale","Wait")
wait for browser event("Everything Loaded","")
wait for element(<class="dz-message rborder-full">,"","Appear")
click(<class="dz-message rborder-full">,"Left Click","No")
wait(1)
plugin command("WindowsCommands.dll""set dialog text""Open""File name:""C:\\Users\\Apichai\\Pictures\\2015-08-31_12-58-48.png")
plugin command("WindowsCommands.dll""click dialog button""Open""Open")

Open Popup

allow popups("In New Window")
navigate("http://www.ovlix.com/ca/login","Wait")
click(<tabindex=1>,"Left Click","No")
in popup {
    alert("Do someting in popup")
    close page
}

Friday, September 4, 2015

Remove Duplicate URLs domain from Text or List

clear list(%urlOut)
clear list(%domain)
set(#urls,"http://www.talentigniter.com/educational-and-school-options-gifted-child
http://www.talentigniter.com/gifted-emotional-and-social-needs
http://www.talentigniter.com/how-do-i-ignite-and-encourage-my-childs-gifts-and-talents
http://www.enumclawchamber.com/blog/post/enumclaw-events-2013 
http://www.ubotstudio.com/forum/
http://www.ubotstudio.com/forum/235","Global")
add list to list(%domain,$find regular expression(#urls,".*\\://(?:www.)?([^\\/]+)"),"Delete","Global")
loop($list total(%domain)) {
    set(#nowDomain,$next list item(%domain),"Global")
    clear list(%temp)
    set(#nowDomain,$plugin function("Advanced Connection.dll""$url info"#nowDomain"Host"),"Global")
    add list to list(%temp,$find regular expression(#urls,"{$replace(#nowDomain,".","\\.")}.*"),"Delete","Global")
    add item to list(%urlOut,$list item(%temp,0),"Don\'t Delete","Global")
}
load html($replace(%urlOut,$new line,"<br>"))