টপিকঃ নন কপিএবল / নন প্রিন্টএবল ওয়েব পেজ পিডিএফ এ প্রিন্ট করুন
কিছুক্ষন আগে শর্তাধীন ভাইয়ের কাছ থেকে সফট টার লিঙ্ক পেলাম। কিন্তু ওটাতে কোন GUI ছিল না । তাই আমি ওটার জন্য একটা GUI এর কোড লিখি । এখন টোটাল প্যাকেজ এর সেটাপ ফাইল করে এখানে দিলাম, কালকে মুল কোম্পানীকে দেব।
কোডঃ Autoit
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$PDFprinter = GUICreate("PDF Printer", 490, 172, 420, 243)
$url = GUICtrlCreateInput("", 8, 32, 473, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$name = GUICtrlCreateInput("", 8, 96, 473, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Create = GUICtrlCreateButton("Create PDF Now !!", 8, 128, 473, 33, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Enter URL to save as pdf (Ex:http://google.com)", 8, 8, 400, 17)
$Label2 = GUICtrlCreateLabel("Enrer File name to save (Ex: doc.pdf)", 8, 72, 175, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $url
Case $name
Case $Create
ProgressOn("Working", "", "0 % done...")
For $i = 5 To 100 Step 10
Sleep(2000)
ProgressSet($i, $i & " % done...")
Next
$pid = RunWait('wkhtmltopdf.exe ' & '"' & GUICtrlRead($url) & '"'& ' ' & '"' & GUICtrlRead($name) & '"',@DesktopDir, @SW_HIDE )
if $pid = 0 then
ProgressSet(100, "Done!")
Sleep(10)
ProgressOff()
MsgBox(0, "Finished", "Page Converted into PDF and saved into desktop")
Endif
EndSwitch
WEnd
ডাউনলোড সাইজ ১৮ মেবা (updating)