VB - Skriptë që shkruan në notepad vetvetiu

[Ledi_Mc]

pershendetje te gjitheve programuesve

kam pare ne nje site skriptesh per nje skript shume i lezeteshem qe bente kur te klikoje mbi skritpin u hapte nje dritare e re NOTEPAD dhe fillonte e shkruante vet, cfare mund ti kishe vendos ti ne skript.

Kush nga ju programuset mund ta formuloj kete skript.

Respekte nga Ledi_Mc

[xfiles]

ne çmenyre shkruante vet,
niste e mbushej me shkronja automatikisht?

[josif]

hapte nje dritare e re NOTEPAD dhe fillonte e shkruante vet

me shkruante cfare shpejtesie e shkruante ?

[xfiles]

duke perdorur standart input nuk mund te behet,
e vetmja gje qe me vjen ndermend eshte gjeja me e thjeshte

C:\>notepad

ku ne vend te ve emrin e dosjes qe permban tekstin.

natyrisht per kete te nuk ka asgje te lezetshme sepse eshte shume normale,
nese e kam kuptuar mire ate qe the.
Kjo eshte per sa i perket skripteve batch nen windows.


Nese e ke fjalen per skripte webi atehere ndryshon puna,
ka mundesi qe ajo "notepad" te kete qene nje editor webi normal si ai neper e-maile apo ky ketu tek forumi.

[Ledi_Mc]

hey skripti ishte nje skript(vbs) ne te cilen kur klikoje dy here hapej nje dritare notepad dhe fillonte te mbushej automatikisht vet.
Psh kur e con tek edit skriptin per ta modifikuar tek nje nga rrjeshtat thonte se cfare gjeje doje te shkruaje ne menyre qe kur te hapej skripti te fillonte vete te mbushej pa bere asnje gje.Nuk e di ne me keni kuptuar perseri.Me ktheni pergjigje

[Aldo89]

Ne fillim hap nje document te ri te nodpad


dhe duhet te shenosh:

msgbox "dhe ketu ne mes duhet te shenosh tekstin qe do te hapen te dritaren e para"
msgbox "pastaj ketu vjen teksti i dritares se dyte"
msgbox "tekst"
msgbox "..."

( " thonjzat duhen patjeter, mos mendo se jane vendosur thjesht pa arsye)


dhe kur ta ruash duhet te shkosh tek:

Save as ---> emrin e files.vbs


Grtz Aldo.

[Ledi_Mc]

hey o shef Aldo nuk me keni kuptuar mire.
Kur shtyp kete skript nuk del faqe e re notepad por dalin dritare te reja.

Un dua qe kur te hap skriptin te hapet nje faqe e re notepad dhe te filloj te mbushet vete(ose se cfare i shkruaj un)
kete skript e kam pare tek nje (sja mbaj mire emrin) Pearlscript.Keshtu me duket se eshte
Respekte nga Ledi^mC
Për Programuesit me te mire te Shqiperise

[cunimartum]

Dicka te tille e ke llafin ?

[edspace]

Ja versioni im për atë që do të bësh:

Ruaje me prapashtesën .vbs dhe klikoje dy herë.

Dim skedari, teksti, ndalesaMidisShkronjave

' ========== konfigurimi ==============
' emri i skedarit qe do hapet
skedari = "%TMP%\skedari.txt"	

' teksti qe do shkruhet ne skedar
teksti = "Ky është teksti që do shkruhet vetvetiu në bllok."

' koha ne milisekonda per cdo shkronje te tekstit
' sa me e vogel, aq me shpejt shkruhet teksti
ndalesaMidisShkronjave = 75
' ======================================


Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

' hap notepad
Set oExec = WshShell.exec("notepad /a " + skedari)

' prit pak kohe sa te hapet
WScript.Sleep 100

' shkruaj shkronjat e tekstit nje e nga nje
for i = 1 to len(teksti)
	WshShell.AppActivate oExec.processId	' aktivizo dritaren e notepad
	WshShell.SendKeys mid(teksti, i, 1)		' dergo nje shkronje
	WScript.Sleep ndalesaMidisShkronjave	' prit pak
next								' vazhdo me shkronjen tjeter

[Ledi_Mc]

kjo eshte plako.
JE I MODH EDSCAPE. TE LUMTE TE LUMTE TE LUMTE TE LUMTE
A ju pelqeu si ide e skriptit?


Jeni te papam te gjithe cunat e forumit.
Respekte nga Ledi^mC $FoReVeR$
Për Forumin_Shqiptar(Programuesit) $FoReVeR$

Ju lumte cuna dhe do te keni gjithmone respektin tim(Ledi^mC)
Ma keni bo qejfin me kete qe keni bere.

Rrofshi dhe keshtu vazhdoni se jeni te papam.
Pershendes te gjithe qe u munduan per kete teme qe hapa.