* /// GoDaddy Crawling Script oWeb=CREATEOBJECT("InternetExplorer.Application") * /// crawling visibility: 1= visible, 2= invisible ///* oWeb.visible=1 * //// lcDomain, lcUser, lcPass are values from the Options dialog ////* * //// go to the main page ////// * oWeb.navigate2("https://dcc.godaddy.com/DomainDetails.aspx?domain="+lcDomain+"&activeview=1&filtertype=1") DO WHILE oWeb.ReadyState!=4 Sleep(1000) ENDDO * //// it will throw up a login screen so login and click /////* oWeb.Document.forms(0)."Login:userEntryPanel:UsernameTextBox".value=lcUser oWeb.Document.forms(0)."Login:userEntryPanel:PasswordTextBox".value=lcPass oWeb.Document.All("Login:userEntryPanel:LoginImageButton").click() Sleep(7000) DO WHILE oWeb.ReadyState!=4 Sleep(1000) ENDDO * //// take the link for domain forwarding oWeb.Document.All("ctl00_cphMain_lnkDomainForwardingUpdate").click() Sleep(7000) DO WHILE oWeb.ReadyState!=4 Sleep(1000) ENDDO * //// Input the new IP - you could append a port here if need be like +":8080/" oWeb.Document.forms(0)."ctl00$cphMain$DomainAction_DomainForwarding$txtForwardingURL".value="http://"+lcstr oWeb.Document.All("ctl00_cphMain_DomainAction_DomainForwarding_btnOK").click() Sleep(7000) DO WHILE oWeb.ReadyState!=4 Sleep(1000) ENDDO * /// accept changes oWeb.Document.All("ctl00_cphMain_Action_Result_btnOK").click() Sleep(7000) DO WHILE oWeb.ReadyState!=4 Sleep(1000) ENDDO oWeb.Quit oWeb=null * ////// End ScriptIf you do an ExecScript on this it will fill in your VFP variables like User/PW/Domain taken from your database.