| hakancann | 15 Aralık 2014 22:32 |
Cevap: @Web penceresi oluşturmak.
remote bu şekilde dediğiniz şekilde ekledim açılıyor ama radyo çalmıyo birde bana kodları tag amayı ögretseniz :) Kod:
Alias -l html { dll $+(",$scriptdirnHTMLn_2.92.dll,") $1- }
Alias -l nhtml { return $+(",$scriptdirnHTMLn_2.92.dll,") }
Alias -l mdx.fullpath { return $+(",$scriptdirmdx.dll,") }
Alias -l mdxinit { dll $mdx.fullpath SetMircVersion $version | dll $mdx.fullpath MarkDialog $dname }
Alias -l mdx { dll $mdx.fullpath $1- }
Alias -l di.open {
if (!$2) { if ($dialog($1) != $null) { dialog -ve $1 } | else { dialog -mod $1 $1 } }
else { if ($dialog($1) != $null) { dialog -ve $1 } | else { dialog - $+ $$2 $1 $1 } }
}
Alias -l start.wbv {
mdxinit | if (%webvDOCk != none) { mdx SetDialog $dname style dlgmodal }
mdx SetControlMDX $dname 1,2,3,4,5,6,7 ToolBar list nodivider flat > $scriptdirbars.mdx
mdx SetControlMDX $dname 10 ProgressBar > $scriptdirctl_gen.mdx
if ($os == xp) { mdx SetFont $dname 1,2,3,4,5,6,7 14 900 Arial }
mdx SetBorderStyle $dname 1,2,3,4,5,6,7 windowedge
mdx SetDialog $dname bgcolor $rgb(199,199,199)
mdx SetColor 1,2,3,4,5,6,7 textbg $rgb(199,199,199)
mdx SetColor 1,2,3,4,5,6,7 background $rgb(199,199,199)
tb 1 Back 11 Go Back
tb 2 Forward 8 Go Forward
tb 3 Refresh 12 Refresh Current Page
tb 4 Stop 10 Stop Page Download
tb 5 Go 5 Navigate to Page
tb 6 Favorites 13 Favorites Folder
tb 7 Close 7 Close Browser
}
Alias -l dock {
if (%webvDOCK == toolbar) { dll $+(",$scriptdirktools.dll,") DockToolbar $dialog($$1).hwnd }
if (%webvDOCK == switch) { dll $+(",$scriptdirktools.dll,") DockSwitchbar $dialog($$1).hwnd }
if (%webvDOCK == none) { dialog -sdb wbv $window(-3).x $window(-3).y 373 11 }
}
Alias -l tb {
did -i $dname $1 1 bmpsize 16 16
did -i $dname $1 1 setimage +nh icon small $3 $+ , $+ $scriptdirsbar.icl
did -a $dname $1 1 $2 $chr(9) $4-
}
dialog wbv {
title "Sanalcı Script Web Tarayıcı"
size -1 -1 802 21
option dbu
icon $scriptdirsbar.icl $+ , 4
list 1, 1 0 29 11, size
list 2, 29 0 40 11, size
list 3, 67 0 40 11, size
list 4, 104 0 29 11, size
list 6, 239 0 46 11, size
list 5, 213 0 25 11, size
list 7, 286 0 1900 11, size
combo 8, 133 0 79 50, size edit drop
text "", 9, 350 100 100 100
text "", 10, 322 2 50 7
}
Alias -l
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
window -Bk0 $1
html attach $window($1).hwnd
html navigate $2-
echo -a $dll($nhtml,handler,progress.handler)
}
;Page progress
;-------------
Alias progress.handler {
var %change = $1-
if ($dialog(wbv)) {
did -i wbv 8 0 $dll($nhtml,url,$1-)
if (progress_change isin %change) { did -a wbv 10 0 0 $gettok(%change,4,32) | did -ra wbv 10 $gettok(%change,3,32) }
}
return S_OK
}
Alias -l back { html back $window($1).hwnd }
Alias -l fwd { html forward $window($1).hwnd }
Alias -l rfsh { html refresh $window($1).hwnd }
Alias -l stop { html stop $window($1).hwnd }
Alias go {
if (!$1) {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
if ($1) {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($dialog(wbv)) { did -a wbv 8 $1- }
}
Alias newindow {
var %w = 1,%wins = 1
while ($window(%w)) {
if (web isin $ifmatch) { inc %wins }
inc %w
}
:winname
var %window = $+(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],%wins)
if ($window(%window)) { inc %wins | goto winname }
return %window
}
On *:active:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*:{ if ($dialog(wbv)) { did -ra wbv 9 $active } }
On *:dialog:wbv:init:0:{ dock $dname | start.wbv }
On *:dialog:wbv:sclick:1:{ back $did(9) }
On *:dialog:wbv:sclick:2:{ fwd $did(9) }
On *:dialog:wbv:sclick:3:{ rfsh $did(9) }
On *:dialog:wbv:sclick:4:{ stop $did(9) }
On *:dialog:wbv:sclick:5:{ go $did(8) }
On *:dialog:wbv:sclick:6:{ di.open fvr -mod }
On *:dialog:wbv:sclick:7:{ .timerCLOSEWBV -h 1 1 dialog -x wbv }
;favorites
;---------
dialog fvr {
title "Sanalcı Script Favorilerim"
size $window(-3).x $window(-3).y 117 184
option dbu
icon $scriptdirsbar.icl $+, 13
list 1, 0 0 117 134, size
edit "", 2, 19 140 94 12, return autohs
edit "", 3, 19 152 94 12, return autohs
list 4, 9 169 101 11, size
text "Site", 5, 5 143 14 8, disable
text "URL", 6, 5 155 14 8, disable
box "", 7, 1 134 115 49
box "", 8, 1 163 115 20
}
Alias -l load.table { if (!$hget($1)) { hmake $1 100 | if ($isfile($+(",$scriptdir,$1,.hsh,")) == $true) { hload $1 $+(",$scriptdir,$1,.hsh,") } } }
Alias -l save.table { hsave -o $1 $+(",$scriptdir,$1,.hsh,") }
Alias -l start.fvr {
mdxinit | if ($os == xp) { mdx SetFont $dname 1,2,3,4,5,6 14 900 Arial }
mdx SetControlMDX $dname 4 ToolBar list nodivider > $scriptdirbars.mdx
mdx SetBorderStyle $dname 1,4 windowedge
mdx SetControlMDX $dname 1 ListView report rowselect single sortascending > $scriptdirviews.mdx
did -i $dname 1 1 headerdims 110 110
did -i $dname 1 1 headertext Site $chr(9) Url
did -i $dname 4 1 bmpsize 16 16
did -i $dname 4 1 setimage +nh icon small 6, $+ $scriptdirsbar.icl
did -i $dname 4 1 setimage +nh icon small 7, $+ $scriptdirsbar.icl
did -i $dname 4 1 setimage +nh icon small 10, $+ $scriptdirsbar.icl
did -a $dname 4 1 Add $chr(9) Add Site to List
did -a $dname 4 2 Delete $chr(9) Delete Site From List
did -a $dname 4 3 Exit $chr(9) Exit
}
Alias -l start.ngs {
mdxinit | if ($os == xp) { mdx SetFont $dname 1,2,3,4,5,6 14 900 Arial }
mdx SetControlMDX $dname 4 ToolBar list nodivider > $scriptdirbars.mdx
mdx SetBorderStyle $dname 1,4 windowedge
mdx SetControlMDX $dname 1 ListView report rowselect single sortascending > $scriptdirviews.mdx
did -i $dname 1 1 headerdims 110 110
did -i $dname 1 1 headertext Adi $chr(9) Url
did -i $dname 4 1 bmpsize 16 16
did -i $dname 4 1 setimage +nh icon small 6, $+ $scriptdirsbar.icl
did -i $dname 4 1 setimage +nh icon small 7, $+ $scriptdirsbar.icl
did -i $dname 4 1 setimage +nh icon small 10, $+ $scriptdirsbar.icl
did -a $dname 4 1 Add $chr(9) Add Game to List
did -a $dname 4 2 Delete $chr(9) Delete Game From List
did -a $dname 4 3 Exit $chr(9) Exit
}
Alias favorites {
var %f = 1
if ($hget($1)) {
did -r $1 1
while ($hget($1,%f).data) { did -a $1 1 $hget($1,%f).item $chr(9) $ifmatch | inc %f }
}
}
On *:dialog:fvr:init:0:{ start.fvr | load.table $dname | save.table $dname | favorites $dname }
On *:dialog:fvr:close:0:{ save.table $dname | hfree fvr }
On *:dialog:fvr:dclick:1:{ go $gettok($did(1).seltext,11-,32) }
On *:dialog:fvr:sclick:4:{
var %id = $did(4).sel
if (%id == 2) && ($did(2) != $null) && ($did(3) != $null) {
hadd fvr $replace($did(2),$chr(32),-) $did(3)
favorites $dname | did -rf $dname 3,2
}
if (%id == 3) && ($did(1).sel) { hdel fvr $gettok($did(1).seltext,6,32) | favorites $dname }
if (%id == 4) { .timerCLOSEFVR -h 1 1 dialog -x $dname }
}
dialog ngs {
title "Sanalcı Script Web Siteleri"
size $window(-3).x $window(-3).y 117 184
option dbu
icon $scriptdirsbar.icl $+ , 13
list 1, 0 0 117 134, size
edit "", 2, 19 140 94 12, return autohs
edit "", 3, 19 152 94 12, return autohs
list 4, 9 169 101 11, size
text "Adı", 5, 3 143 16 8, enable
text "URL", 6, 3 155 16 8, enable
box "", 7, 1 134 115 49
box "", 8, 1 163 115 20
}
On *:dialog:ngs:init:0:{ start.ngs | load.table $dname | save.table $dname | favorites $dname }
On *:dialog:ngs:close:0:{ save.table $dname | hfree ngs }
On *:dialog:ngs:dclick:1:{ go $gettok($did(1).seltext,11-,32) }
On *:dialog:ngs:sclick:4:{
var %id = $did(4).sel
if (%id == 2) && ($did(2) != $null) && ($did(3) != $null) {
hadd ngs $replace($did(2),$chr(32),-) $did(3)
favorites $dname | did -rf $dname 3,2
}
if (%id == 3) && ($did(1).sel) { hdel ngs $gettok($did(1).seltext,6,32) | favorites $dname }
if (%id == 4) { .timerCLOSENGS -h 1 1 dialog -x $dname }
}
menu channel,status,menubar {
-
Browser
. $iif(!$dialog(wbv),Open,Close) :{ if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv } | else { di.open wbv -mod } }
.-
.Favorites:di.open fvr -md
.-
.Dock
..Show on Start ( $+ %webvST $+ )
... $iif(%webvST == Yes,No,Yes) :{ if (%webvST == no) { set %webvST Yes | return } | else { set %webvST No | return } }
..-
..Toolbar $iif(%webvDOCK == toolbar,<-) :{ set %webvDOCK toolbar | if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv | .timerOPENWBV -h 1 2 di.open wbv -mod } }
..Switchbar $iif(%webvDOCK == switch,<-) :{ set %webvDOCK switch | if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv | .timerOPENWBV -h 1 2 di.open wbv -mod } }
..Un Dock $iif(%webvDOCK == none,<-) :{ set %webvDOCK none | if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv | .timerOPENWBV -h 1 2 di.open wbv -mod } }
.-
.Help
..How to:{
echo -ai30 :: 12,12|15,1To Open type /browser
echo -ai30 :: 12,12|15,1To use the Browsers page process globally in other scripts you input /go [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
echo -ai30 :: 12,12|15,1This will open a new browser window with your page.
}
..Read-Me:{ run $+(",$scriptdirWBVreadme.txt,") }
-
Sitelerim:di.open ngs -md
}
On *:start:{ if (%webvST == yes) { di.open wbv -mod } }
On *:load:{ set %webvDOCK toolbar | set %webvST yes | echo -a :: 12,12|15,1Loaded WebView 3.0 by 14K15i0X | echo -a :: 12,12|15,1Type /browser to open | echo -a :: 12,12|15,1To use the browsers page process globally input /go [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
On *:unload:{ unset %webv* | echo -a :: 12,12|15,1Un-loaded WebView 3.0 by 14K15i0X }
Alias browser { di.open wbv -mod }
|
