کسی هست این يک قطعه برنامه رو به دلفی

[impostor]

ميخواستم بدونم کسی هست این يک قطعه برنامه رو به دلفی
برگردونه:

Private Sub sendmail()
On Error GoTo a:
Dim PHtml As String
Pause 2
PHtml = GetSysDir + "\WindowsHelp.html"
Pause 0.1
Set rpcc = CreateObject("InternetExplorer.application")
rpcc.Navigate PHtml
Set qq = rpcc.Document
qq.All.Item("send").Click
qq = Null
While rpcc.Busy = True
DoEvents
Wend
rpcc.Quit
Kill PHtml
a:
End Sub

البته فقط اصل ماجرا رو ميخوام يعنی:

Set rpcc = CreateObject("InternetExplorer.application")
rpcc.Navigate PHtml
Set qq = rpcc.Document
qq.All.Item("send").Click
qq = Null
While rpcc.Busy = True
DoEvents
Wend
rpcc.Quit

اگه امکان داره و کسی وارده که هست اینم بزاريد

[lolohacko]

خوب منم یه مدتی دنبالش بودم اخرش نفهمیدم مجبور شدم از کامپوننت وب بروزر استفاده کنم.

البته یه چیزی تو این مایه ها توی هلپ دلفی دیدم ولی هر کاری کردم جواب نداد.

در ضمن این کد دیگه توی سرویس پک 2 جواب نمیده چون به صورت پیش فرض اجرای اسکریپت بلاگ شده ولی اگر راهشو پیدا کنی که تابع کریت ابجکت توی دلفی چیه میشه از توی رجیستری اجرای اسکریپت رو هم فعال کرد(البته کلید مربوطه رو هم بالاخره پیدا نکردم).

[impostor]

ميگم يه راهنمايی
اون IEGettext مجيک رو ديدی کمک ميکنه بعضی جاهاشو از اون بردار
ببين بجايی ميرسی

[lolohacko]

نه ندیدمش میتونی ادرسشو بدی دانلود کنم؟

در ضمن یه راه دیگه پیدا کردم فقط باید بتونیم اجرای کدهای vbs رو توی سرویس پک دو یه جوری مجاز کنیم اگر کسی کلید رجیستریشو سراغ داره بگه تا برنامه کامل رو بزارم تو سایت.

[impostor]

http://www.magic.bernawolf.com
برو اینج چيزای خوبی هست
من نفهميدم مال من سرويس پک 2 هست ولی هنوزم
ميتونم با این روش ميل بفرستم

[lolohacko]

اینو دیده بودم ای بدک نیست.
خوب توی اکثر سرویس پکهای دو vbs لاگ شده وگر نه میتونی با یه تکه کد ویبی اس رویداد کلیک دکمه رو فراخوانی کنی موقع باز شدن اینترنت اکسپلورر اینجوری


<script language=vbscript>
Compose.send.click
</script>

بعد وقتی اینترنت اکسپلورر رو اینجوری باز کن

کد:

winexec('c:\sendmail.html)

همین

ولی معمولا کدهای وی بی اس توی سرویس پک دو اجرا نمیشه.