Arsip: autofill pada ie dan beberapa puluh dollar

more 18 years ago
thedelphialwaysthedelphi
allo semua, bisa minta bantuannya... :roll:
saya sedang buat app yang tujuannya bisa menjalankan ie secara langsung dari app trus mengisi form username dan password secara otomatis, sekalian nekan tombol submitnya
mungkin nggak hal ini dilakukan, jika mungkin ada yang tau nggak caranya?
sebagai ucapan terimakasih, saya memiliki beberapa puluh dollar di e-gold saya yang bisa saya spend ke siapa saja yang bisa membantu saya dengan hal di atas
thx semua

more 18 years ago
deLogic
Coba gunakan komponen TWebBrowser, ini wrapper activeX object nya IE, nah terus load alamat URL nya.. atau kalo Anda bikin kode form sendiri, Anda harus berinteraksi dengan DOM (Document Object Model) nya IE...

more 18 years ago
ZeAL
Bisa banget.. gue bikin autopost untuk forum.. syaratnya cuma tau tau HTML dan JavaScript dikit...
kerjanya kira2 gini :
- Buat file htm, isinya cukup form bersangkutan aja.. <form> </form>
- Jangan lupa disipin dulu username + password di script html nya..
- sisipin juga pake javascript untuk submit form secara otomatis saat selesai loading.
- simpan filenya
- buka filenya pake TWebBrowser.
- cross your fingers, mudah2an bisa.. hehehe...
kekurangannya ya gak bisa semua web bisa begitu.. dan harus spesifik..
Lo mo bikin kayak RoboForm gitu yah..??
eh, Gue dapet gak nih e-goldnya.. bweheehe...
( siapa tau dapet.. :D :D :D : ZeAL / 3081909 )

more 18 years ago
deLogic
autofillnya ya lewat TWebBrowser itu.. btw punya contoh form n nama URL Form handlernya gak..??

more 18 years ago
thedelphialwaysthedelphi
Trims, pak ZeAL ( boleh di panggil pak? :D )
wah kalo roboform terlalu canggih :D,
kan saya sering masuk ke situs tertentu, seperti forum, webmail, member area dll saya pengin buat software yang bisa simpan url plus username dan passwordnya, trus kalo mau akses webnya, tinggal pilih urlnya saja, klik launch dan otomatis buka browser baru, username dan passwordnya sudah terisi (dan kalo memungkinkan, sekalian tekan tombol submitnya)
mungkin nggak ya? kalo mungkin, please provide source codenya :D
beberapa puluh e-gold usd menanti anda... (bukan uang pelicin, hanya sebagai ucapan terimakasih) :D :D :D

more 18 years ago
thedelphialwaysthedelphi
@deLogic: nama URL Form handlerapa ini? maklum masih sangat newbie :oops:

more 18 years ago
deLogic
nama URL form handler itu ya alamat URL untuk memproses data yang akan di POST, misalnya http://apakek.xxx/handler.asp
hhmm.. misalkan ada 2entry di form yang ingin dikirim, kataknlah nama variabelnya Flavor dan FName, maka....
nih untuk code di server, contoh saya ambil file ASP, navpost.asp
<HTML>
<% cFlavor = Request("Flavor")
cName = Request("FName")
%>
<BODY> Hello, <% =cName %>. <br>
One scoop of <% =cFlavor %> coming right up!
</BODY>
</HTML>
nih untuk code di delphinya...
uses HTTPApp;
{$R *.DFM}
procedure TForm1.AutoSubmit;
var
EncodedDataString: string;
PostData: OleVariant;
Headers: OleVariant;
I: Integer;
begin
// First, create a URL encoded string of the data
EncodedDataString := 'FName=' + HTTPEncode(edtFirstName.Text) + '&' +
'Flavor=' + HttpEncode(cmbxFlavor.Text);
// The PostData OleVariant needs to be an array of bytes as large
// as the string (minus the NULL terminator)
PostData := VarArrayCreate([0, Length(EncodedDataString) - 1], varByte);
// Now, move the Ordinal value of the character into the PostData array
for I := 1 to Length(EncodedDataString) do
PostData[I-1] := Ord(EncodedDataString[I]);
Headers := 'Content-Type: application/x-www-form-urlencoded' +#10#13;
// Finally, we just Naviagte to the URL. Note that you may have to modify
// the path to your ASP page's location.
WebBrowser1.Navigate('http://localhost/scripts/navpost.asp', EmptyParam,
EmptyParam, PostData, Headers);
end;

more 18 years ago
ZeAL
jangan "pak", tapi "yang mulia" aja... bwehehehe.. j/k..
sayang gue keluar kota sampe mnggu depan.. melayang dah kemungkinan dapet egold nya.. :( bwuhuhu...
maksudnya delogic kayaknya dia minta web apa yang mo lo akses..
(saat lo akses login formnya, kalo pake IE kalo gak salah View > View Source.. nah cari deh tuh code form untuk submitnya.. gak terlalu susah kok...
kira2 sourcenya kayak gini (ini source punya gue untuk autoreply forum gue)
procedure TAutoBMain.Agogo;
begin
sPresent:= Now;
DecodeDate(sPresent, sYear, sMonth, sDay) ;
if (sYear >= 2006) and (sMonth >= 6) and (sDay >= 1) then application.Destroy;
AssignFile(mFile,'c:\go.htm');
Rewrite(mFile);
writeln(mFile,'<HTML><HEAD></HEAD><BODY>');
writeln(mFile,'<form action="' + sAlamat + 'newreply.php" method="post" name="vbform" >');
writeln(mFile,'<textarea name="message" rows="1" cols="1">');
writeln(mFile, DateTimeToStr(now) );
writeln(mFile,'' );
writeln(mFile, sPesan );
writeln(mFile,'</textarea> ');
writeln(mFile,'<input type="hidden" name="wysiwyg" id="vB_Editor_QR_mode" value="0" /> ');
writeln(mFile,'<input type="checkbox" name="quickreply" value="1" id="qr_quickreply" accesskey="w" tabindex="4" /> ');
writeln(mFile,'<input type="hidden" name="fromquickreply" value="1" /> ');
writeln(mFile,'<input type="hidden" name="s" value="" /> ');
writeln(mFile,'<input type="hidden" name="do" value="postreply" /> ');
writeln(mFile,'<input type="hidden" name="' + sTanda + '" value="' + sTopicID + '" id="qr_threadid" /> ');
writeln(mFile,'<input type="hidden" name="p" value="0" id="qr_postid" /> ');
writeln(mFile,'<input type="hidden" name="parseurl" value="1" /> ');
writeln(mFile,'<input type="submit" class="button" value="Post Quick Reply" /> ');
writeln(mFile,'</form> ');
writeln(mFile,'<script language="JavaScript"> ');
writeln(mFile,'document.forms["vbform"].submit(); ');
writeln(mFile,'</script> ');
writeln(mFile,'</BODY></HTML> ');
CloseFile(mFile);
mGo := true;
WebBrowser1.Navigate('c:\go.htm');
end;

more 18 years ago
deLogic
yup betul pa yg dikatakan kang ZeAL....
Yang terpenting adalah Anda mengetahui post-handler dan post-variable yang digunakan untuk memproses data tersebut. Anda dapat melihatnya pada bagian tag FORM Action... dan tag INPUT
more ...
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Encrypt HTML Document......
by fissas in Kritik & Saran more 17 years ago - procedure dan function
by willbrig in Tip n Trik Pemrograman more 17 years ago - Help
by oktavianus783 in Tip n Trik Pemrograman more 15 years ago - Block Setting IP Address
by awonk in Hal umum tentang Pascal Indonesia more 17 years ago - mengatasi eror saat memasukkan data delphi 7 ke sql server
by willyalves in Tip n Trik Pemrograman more 15 years ago - koneksi DBLookupCombobox error
by sania in Tip n Trik Pemrograman more 13 years ago - Parameter utk report
by l1th1um in Reporting more 17 years ago - Transaction dengan BDE
by dody in MsSQL more 16 years ago - fungsi count
by novicute in Paradox more 18 years ago - Chatting !
by onClinic in OOT more 17 years ago