Language: Visual Basic
Untitled Visual Basic (21-Mar @ 05:40)
Syntax Highlighted Code
- Ž h L 8 $
- ô Þ Î ´ – x ^ D 8 0 & s ñÍ[J % à à h H RSDSH,”ÂZ÷Jš°Ï€jš3 wiatwain.pdb * ‹ÿU‹ì¸csmà9Eu
- ÿuPèe YY]Ã3À]ÃÌÌÌÌÌ‹ÿU‹ìV‹u3Àë…Àu‹…ÉtÿуÆ;urì^]ÃÌÌÌÌÌh€ ÿD Y£@# £<# …Àu@à 3ÀÃÌÌÌÌÌ‹ÿU‹ìS3ÀVW9Eu&9 ~ÿ
- ‹=( P¾8# éå 3ÀéK ƒ}…> d‹
- [5 more lines...]
Plain Code
Ž h L 8 $
ô Þ Î ´ – x ^ D 8 0 & s ñÍ[J % à à h H RSDSH,”ÂZ÷Jš°Ï€jš3 wiatwain.pdb * ‹ÿU‹ì¸csmà9Eu
ÿuPèe YY]Ã3À]ÃÌÌÌÌÌ‹ÿU‹ìV‹u3Àë…Àu‹…ÉtÿуÆ;urì^]ÃÌÌÌÌÌh€ ÿD Y£@# £<# …Àu@à 3ÀÃÌÌÌÌÌ‹ÿU‹ìS3ÀVW9Eu&9 ~ÿ
‹=( P¾8# éå 3ÀéK ƒ}…> d‹
‹Y‹=( ‰EP¾8# ë;Ãthè ÿ j SVÿ×…ÀuçëÇE ¡4# j_…Àt jè ë9h` hX Ç4# èÿÿÿYY…À…zÿÿÿhT hP èM Y‰=4# 3ÛY9]uSVÿ, 9H# thH# è³ Y…Àt
ÿuWÿuÿH# ÿ ëwhè ÿ j jVÿ×…Àuê¡4# ƒøt
jèï YëM‹@# …Ût0‹=<# ƒÇüë‹…ÀtÿЃï;ûsñSÿ@ ƒ%<# ƒ%@# Yj VÇ4# ÿ, 3À@_^[] ÌÌÌÌÌj,hð èš ‹M3ÒB‰Uä3ö‰uü‰
;Îu95 u‰uäé ;Êt ƒù… ¡D# ;Æt6‰Uü‰ ÿuQÿuÿЉEäë‹Eì‹‹ ‰MàPQèýÿÿYYËeè3ö‰uä‰uü9u䄱 ÇEü ÿuÿuÿuèÖýÿÿ‰Eäë‹Eì‹‹ ‰MÜPQèKýÿÿYYËeè3ö‰uä‰uü9uä„o ‹MÇEü ÿuQÿuèº ‰Eäë‹Eì‹‹ ‰MØPQèýÿÿYYËeè3ö‰uä‰uüƒ}…œ 9uä…“ ÇEü VVÿuèr ë‹Eì‹‹ ‰MÔPQèÃüÿÿYYËeè3ö‰uüÇEü VVÿuèýÿÿë‹Eì‹‹ ‰MÐPQè”üÿÿYYËeè3ö‰uü¡D# ;Æt,ÇEü VVÿuÿÐë‹Eì‹‹ ‰MÌPQè_üÿÿYYËeè3ö‰uü9ut
ƒ}…€ ÇEü ÿuÿuÿuè¥üÿÿ‰Eäë‹Eì‹‹ ‰MÈPQèüÿÿYYËeè3ö‰uä‰uü¡D# ;Æt>95 t6ÇEü ÿuÿuÿuÿЉEäë‹Eì‹‹ ‰MÄPQèÓûÿÿYYËeè3ö‰uä‰uüÇEüþÿÿÿè ‹Eäè Â Ç ÿÿÿÿÃÌÌÌÌÌ‹ÿU‹ìƒ}uè½ ]é‰ýÿÿÌÌÌÌÌÿ%H ÌÌÌÌÌÌÌÌ‹ÿU‹ì‹M¸MZ f9t3À]ËA<Á8PE uï3Ò¹ f9H”‹Â]ÃÌÌÌÌÌÌÌÌÌÌÌ‹ÿU‹ì‹E‹H<È·ASV·q3ÒWD…öv‹}‹H;ùr ‹XÙ;ûr
BƒÀ(;Örè3À_^[]ÃÌÌÌÌÌjhp è‡ ƒeü ¾ Vè\ÿÿÿY…Àt=‹E+ÆPVè‹ÿÿÿYY…Àt+‹@$Áè÷ЃàÇEüþÿÿÿë ‹Eì‹ ‹ 3É=
Untitled Visual Basic (21-Mar @ 05:37)
Syntax Highlighted Code
- Ž h L 8 $
- ô Þ Î ´ – x ^ D 8 0 & s ñÍ[J % à à h H RSDSH,”ÂZ÷Jš°Ï€jš3 wiatwain.pdb * ‹ÿU‹ì¸csmà9Eu
- ÿuPèe YY]Ã3À]ÃÌÌÌÌÌ‹ÿU‹ìV‹u3Àë…Àu‹…ÉtÿуÆ;urì^]ÃÌÌÌÌÌh€ ÿD Y£@# £<# …Àu@à 3ÀÃÌÌÌÌÌ‹ÿU‹ìS3ÀVW9Eu&9 ~ÿ
- ‹=( P¾8# éå 3ÀéK ƒ}…> d‹
- [5 more lines...]
Plain Code
Ž h L 8 $
ô Þ Î ´ – x ^ D 8 0 & s ñÍ[J % à à h H RSDSH,”ÂZ÷Jš°Ï€jš3 wiatwain.pdb * ‹ÿU‹ì¸csmà9Eu
ÿuPèe YY]Ã3À]ÃÌÌÌÌÌ‹ÿU‹ìV‹u3Àë…Àu‹…ÉtÿуÆ;urì^]ÃÌÌÌÌÌh€ ÿD Y£@# £<# …Àu@à 3ÀÃÌÌÌÌÌ‹ÿU‹ìS3ÀVW9Eu&9 ~ÿ
‹=( P¾8# éå 3ÀéK ƒ}…> d‹
‹Y‹=( ‰EP¾8# ë;Ãthè ÿ j SVÿ×…ÀuçëÇE ¡4# j_…Àt jè ë9h` hX Ç4# èÿÿÿYY…À…zÿÿÿhT hP èM Y‰=4# 3ÛY9]uSVÿ, 9H# thH# è³ Y…Àt
ÿuWÿuÿH# ÿ ëwhè ÿ j jVÿ×…Àuê¡4# ƒøt
jèï YëM‹@# …Ût0‹=<# ƒÇüë‹…ÀtÿЃï;ûsñSÿ@ ƒ%<# ƒ%@# Yj VÇ4# ÿ, 3À@_^[] ÌÌÌÌÌj,hð èš ‹M3ÒB‰Uä3ö‰uü‰
;Îu95 u‰uäé ;Êt ƒù… ¡D# ;Æt6‰Uü‰ ÿuQÿuÿЉEäë‹Eì‹‹ ‰MàPQèýÿÿYYËeè3ö‰uä‰uü9u䄱 ÇEü ÿuÿuÿuèÖýÿÿ‰Eäë‹Eì‹‹ ‰MÜPQèKýÿÿYYËeè3ö‰uä‰uü9uä„o ‹MÇEü ÿuQÿuèº ‰Eäë‹Eì‹‹ ‰MØPQèýÿÿYYËeè3ö‰uä‰uüƒ}…œ 9uä…“ ÇEü VVÿuèr ë‹Eì‹‹ ‰MÔPQèÃüÿÿYYËeè3ö‰uüÇEü VVÿuèýÿÿë‹Eì‹‹ ‰MÐPQè”üÿÿYYËeè3ö‰uü¡D# ;Æt,ÇEü VVÿuÿÐë‹Eì‹‹ ‰MÌPQè_üÿÿYYËeè3ö‰uü9ut
ƒ}…€ ÇEü ÿuÿuÿuè¥üÿÿ‰Eäë‹Eì‹‹ ‰MÈPQèüÿÿYYËeè3ö‰uä‰uü¡D# ;Æt>95 t6ÇEü ÿuÿuÿuÿЉEäë‹Eì‹‹ ‰MÄPQèÓûÿÿYYËeè3ö‰uä‰uüÇEüþÿÿÿè ‹Eäè Â Ç ÿÿÿÿÃÌÌÌÌÌ‹ÿU‹ìƒ}uè½ ]é‰ýÿÿÌÌÌÌÌÿ%H ÌÌÌÌÌÌÌÌ‹ÿU‹ì‹M¸MZ f9t3À]ËA<Á8PE uï3Ò¹ f9H”‹Â]ÃÌÌÌÌÌÌÌÌÌÌÌ‹ÿU‹ì‹E‹H<È·ASV·q3ÒWD…öv‹}‹H;ùr ‹XÙ;ûr
BƒÀ(;Örè3À_^[]ÃÌÌÌÌÌjhp è‡ ƒeü ¾ Vè\ÿÿÿY…Àt=‹E+ÆPVè‹ÿÿÿYY…Àt+‹@$Áè÷ЃàÇEüþÿÿÿë ‹Eì‹ ‹ 3É=
Untitled Visual Basic (14-Mar @ 14:24)
Syntax Highlighted Code
- & ä x X T È & ä Ì é Ä b V ø Þ è / Æ é / ® ç W Q é ¹ À B ß ã ˜ ¯ Ë s
- r à w Ý n ˜ é Ý á « – ¢ é 8 v ã Ž Û V H " § ~ é % û K n b å Á ä § W Î a û + = Ì a Œ Š € n + õ•w éÇ6£š¯ÒB ט
Plain Code
& ä x X T È & ä Ì é Ä b V ø Þ è / Æ é / ® ç W Q é ¹ À B ß ã ˜ ¯ Ë s
r à w Ý n ˜ é Ý á « – ¢ é 8 v ã Ž Û V H " § ~ é % û K n b å Á ä § W Î a û + = Ì a Œ Š € n + õ•w éÇ6£š¯ÒB ט
Untitled Visual Basic (24-Jan @ 16:50)
Syntax Highlighted Code
- Ś1ÄúŰŔCtŻËó(U
Plain Code
Ś1ÄúŰŔCtŻËó(U
Untitled Visual Basic (13-Aug @ 17:27)
Syntax Highlighted Code
- ˆ% €*^ Š% €,^ ¶% €.^ º% €/^ ¼% € _ ¾% €"_ Ä% €$_ È% €&_ ä% €(_ ê% €*_ ò% €,_ ú% €-_ ü% €._ þ% €/_ & €ð_ & €ñ_ & €ò_ & €ó_ & €ô_
- & €õ_ & €ö_ & €÷_ & € B ;] ˜& €<] š& €=] œ& €>] ž& €?] ¨& € - ª& €¡- ²& €¢- ´& €£- ¶& €¤- ¸& €¥- º& €¦- ¼& €§- ¾& €¨- À& €©- Â& €ª- Ä& €«- Æ& €¬- È& €- Ê& €®- Ì& €¯- Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& €:` ä& € B5 êa N' €ëa P' €ìa R' €ía T' €îa V' €ïa X' €€b Z' €b \' €‚b ^' €ƒb `' €„b b' €…b d' €†b f' €‡b h' €ˆb j' €‰b l' €Šb n' €‹b p' €Œb r' €b t' €Žb v' €b x' € c †' €c ˆ' €c Š' €c Œ' €c Ž' €c ' €c ’' €c ”' €c –' € c ˜' €
- c š' €c ª' €c À' €0d Æ' €2d Î' €4d à' €6d ì' €8d ð' €:d ú' €<d $( €>d ) €0i *) €2i <) €4i X) €5i ^) €6i `) €7i x) €9i ¢) €;i ¦) €=i ²) €>i ´) €4d à' €6d ì' €8d ð' €:d ú' €<d $( €>d ) €0i *) €2i <) €4i X) €5i ^) €@à7 àb ` …Á ÏúÿßÁ “õÿßÁ @? ÀF Ð÷_ & €ø_ & €ù_ & €ú_ & €û_ & €ü_ & €þ_ 2& €À` 6& €Á` 8& €Ã` T& €Ä` b& €Å` d& €Æ` f& €Ç` h& €È` j& €É` l& €Ê` n& €Ë` p& €Ì` r& €Í` t& €Î` v& €Ï` x& €1] „& €2] †& €3] ˆ& €4] Š& €5] Œ& €6] Ž& €7] & €8] ’& €9] ”& €:] –& €;] ˜& €<] š& €=] œ& €>] ž& €?] ¨& € - ªËÀ& €¡- ²& €¢- ´& €£- ¶& €¤- ¸& €¥- º& €¦- ¼& €§- ¾& €¨- À& €©- Â& €ª- Ä& €«- Æ& €¬- È& €- Ê& €®- Ì& €¯- Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& € B? °F Ðï\ 2% €`] 4% €b] 8% €c] :% €d] <% €e] >% €f] @% €g] B% €h] D% €i] F% €j] H% €k] J% €l] L% €m] N% €n] P% €o] R% €À] T% €Á] V% €Â] X% €Ã] Z% €Ä] \% €Å] ^% €Æ] `% €Ç] b% €È] d% €É] f% €Ê] h% €Ë] j% €Ì] l% €Í] n% €Î] p% €Ï] r% € ^ t% €!^ v% €"^ x% €#^ z% €$^ |% €%^ ~% €&^ €% €'^ ‚% €(^ †% €)^ ˆ% €*^ Š% €,^ ¶% €.^ º% €/^ ¼% € _ ¾% €"_ Ä% €$_ È% €&_ ä% €(_ ê% €*_ ò% €,_ ú% €-_ ü% €._ þ% €/_ & €ð_ & €ñ_ & €ò_ & €ó_ & €ô_
- & €õ_ & €ö_ & € B? P] ЬF > €F @ €®F B €¯F D € G F €!G H €"G J €#G L €$G N €%G P €&G R €pI €
- [17 more lines...]
Plain Code
ˆ% €*^ Š% €,^ ¶% €.^ º% €/^ ¼% € _ ¾% €"_ Ä% €$_ È% €&_ ä% €(_ ê% €*_ ò% €,_ ú% €-_ ü% €._ þ% €/_ & €ð_ & €ñ_ & €ò_ & €ó_ & €ô_
& €õ_ & €ö_ & €÷_ & € B ;] ˜& €<] š& €=] œ& €>] ž& €?] ¨& € - ª& €¡- ²& €¢- ´& €£- ¶& €¤- ¸& €¥- º& €¦- ¼& €§- ¾& €¨- À& €©- Â& €ª- Ä& €«- Æ& €¬- È& €- Ê& €®- Ì& €¯- Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& €:` ä& € B5 êa N' €ëa P' €ìa R' €ía T' €îa V' €ïa X' €€b Z' €b \' €‚b ^' €ƒb `' €„b b' €…b d' €†b f' €‡b h' €ˆb j' €‰b l' €Šb n' €‹b p' €Œb r' €b t' €Žb v' €b x' € c †' €c ˆ' €c Š' €c Œ' €c Ž' €c ' €c ’' €c ”' €c –' € c ˜' €
c š' €c ª' €c À' €0d Æ' €2d Î' €4d à' €6d ì' €8d ð' €:d ú' €<d $( €>d ) €0i *) €2i <) €4i X) €5i ^) €6i `) €7i x) €9i ¢) €;i ¦) €=i ²) €>i ´) €4d à' €6d ì' €8d ð' €:d ú' €<d $( €>d ) €0i *) €2i <) €4i X) €5i ^) €@à7 àb ` …Á ÏúÿßÁ “õÿßÁ @? ÀF Ð÷_ & €ø_ & €ù_ & €ú_ & €û_ & €ü_ & €þ_ 2& €À` 6& €Á` 8& €Ã` T& €Ä` b& €Å` d& €Æ` f& €Ç` h& €È` j& €É` l& €Ê` n& €Ë` p& €Ì` r& €Í` t& €Î` v& €Ï` x& €1] „& €2] †& €3] ˆ& €4] Š& €5] Œ& €6] Ž& €7] & €8] ’& €9] ”& €:] –& €;] ˜& €<] š& €=] œ& €>] ž& €?] ¨& € - ªËÀ& €¡- ²& €¢- ´& €£- ¶& €¤- ¸& €¥- º& €¦- ¼& €§- ¾& €¨- À& €©- Â& €ª- Ä& €«- Æ& €¬- È& €- Ê& €®- Ì& €¯- Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& € B? °F Ðï\ 2% €`] 4% €b] 8% €c] :% €d] <% €e] >% €f] @% €g] B% €h] D% €i] F% €j] H% €k] J% €l] L% €m] N% €n] P% €o] R% €À] T% €Á] V% €Â] X% €Ã] Z% €Ä] \% €Å] ^% €Æ] `% €Ç] b% €È] d% €É] f% €Ê] h% €Ë] j% €Ì] l% €Í] n% €Î] p% €Ï] r% € ^ t% €!^ v% €"^ x% €#^ z% €$^ |% €%^ ~% €&^ €% €'^ ‚% €(^ †% €)^ ˆ% €*^ Š% €,^ ¶% €.^ º% €/^ ¼% € _ ¾% €"_ Ä% €$_ È% €&_ ä% €(_ ê% €*_ ò% €,_ ú% €-_ ü% €._ þ% €/_ & €ð_ & €ñ_ & €ò_ & €ó_ & €ô_
& €õ_ & €ö_ & € B? P] ЬF > €F @ €®F B €¯F D € G F €!G H €"G J €#G L €$G N €%G P €&G R €pI €
ð4 €I 0Þ €I 0î €I 0ð €I 0ò €I 0ô € I 0ö €
I 0ø €I 0v €I 0$ €
I 0$ €I 0$ €I 0R$ €BZ X$ €DZ ¾$ €EZ À$ €FZ Â$ €GZ Ø$ €IZ Þ$ €JZ à$ €KZ â$ €LZ ä$ €MZ æ$ €NZ è$ €OZ ê$ €q\ ò$ €s\ ö$ €u\ ú$ €w\ þ$ €x\ % €y\ % €{\ % €|\ % €}\ % €~\ % €\ % €à\ % €á\ % €â\ % €ã\ % €ä\ % €å\ % €æ\ % €ç\ "% €è\ $% €é\ &% €ê\ (% €ë\ *% €ì\ ,% €í\ .% €î\ 0% € B0 P4 0:` ä& €;` æ& €<` è& €=` ê& €>` ì& €?` î& €0a ð& €1a ò& €2a ô& €3a ö& €4a ø& €5a ú& €6a ü& €7a þ& €8a ' €9a ' €:a ' €;a ' €<a ' €=a
' €>a ' €?a ' €€a ' €a ' €‚a ' €ƒa ' €„a ' €…a ' €†a ' €‡a ' €ˆa ' €‰a "' €Ša $' €‹a &' €Œa (' €a *' €Ža ,' €a .' €àa :' €áa <' €âa >' €ãa @' €äa B' €åa D' €æa F' €ça H' €èa J' €éa L' €êa N' €ëa P' €ìa R' €ía T' €îa V' €ïa X' €€b Z' €b \' €‚b ^' €ƒb `' €„b b' €…b d' €†b f' €‡b h' €ˆb j' € B? ` ð8 Ä €; ¤ €; ® €; ° €; ² €; ´ €; ¸ €£? ¶ €©? ^ €VD J €XD N €\D V €^D Z €_D \ €E D €TE 0Î €UE 0Ð €VE 0Ò €WE 0Ô €YE 0Ø €ZE 0Ú €[E 0Ü €\E 0Þ €]E 0à €^E 0â €_E 0ä €ÐE æ €ÓE ì €ÔE î €ÕE ð €ÖE ò €ØE ö €ÙE ø €ÚE ú €ÛE ü €ÝE €ÞE €ßE €0F €1F €2F
€3F €4F €5F €6F €7F €9F €:F €;F €<F €=F €>F " €?F $ € F & €¡F ( €¢F * €£F , €¤F . €¥F 0 €¦F 2 €©F 8 €ªF : €«F < €s €# Џ $EŸ L , ªþŸ ,ÕŸ Œ
³Ÿ ]åŸ . *ÓŸ V &ÏŸ "ËŸ © ÇŸ × þ¦Ÿ ä ß ù ·Ÿ ¿Ÿ B »Ÿ w «Ÿ Ö ¯Ÿ E ¨üŸ T Wߟ ~ Ó ‘ UÝŸ [㟠+ òšŸ f ú¢Ÿ k
ËþŸ l
Ñ – öžŸ ¦ SÛŸ Ï æŽŸ ò QÙŸ î–Ÿ 4 MÕŸ > (ÑŸ T eíŸ r _çŸ ’ cëŸ ³ aéŸ Õ
Í Ï Oן -
ê’Ÿ . ôŸ L Y០l ⊟ Œ Þ†Ÿ « ÂjŸ B B s & €& t ( €( u * €* v , €, w . €. y 2 €2 { 6 €6 } : €: > €> á B €B æ L €L è P €P é R €R ê T €T @ ` €` A b €b B d €d D h €h E j €j ç Ž €Ž é ’ €’ ì ˜ €˜ B X @’ €’ k 0 € Ðh 0P €P Ði 0R €R €g 0 € f 0J €J b М €œ €` И
€˜
M j €j P 0j €j ÀY 04
€4
ÀQ 0 € L º €º àE °Ž €Ž I °¾ €¾ G °Ê €Ê `A 0$ €$ D ú €ú `E Ðú €ú °T €T @; ÐZ €Z 1 € Ð3 Pð €ð 6 Ðf €f À0 pÜ €Ü . pL! €L! Ð €¢! €¢! p( pö! €ö! ' pJ" €J" % pž" €ž" " pò" €ò" P €F# €F# 0 pš# €š# pî# €î# B$ €B$ p $ € $ à p% €% p p^% €^% ° €Ò% €Ò% @O <& €<& 9 °”& €”& p è& €è& p B ü
˜ €˜ Ò ¤ €¤ Õ ª €ª Ö ¬ €¬ × ® €® Ø ° €° ß ¾ €¾ À €À % Ê €Ê ' Î €Î - Ú €Ú / Þ €Þ ’ ä €ä • ê €ê \
€ ]
€ _
€ å @Š €Š é @’ €
Untitled Visual Basic (10-Aug @ 22:02)
Syntax Highlighted Code
- www.spamplanet.org
Plain Code
www.spamplanet.org
Untitled Visual Basic (12-Jun @ 17:00)
Syntax Highlighted Code
- Dim filedialog As New System.Windows.Forms.OpenFileDialog
- Dim returnedlocation As DialogResult
- returnedlocation = filedialog.ShowDialog()
- [7 more lines...]
Plain Code
Dim filedialog As New System.Windows.Forms.OpenFileDialog
Dim returnedlocation As DialogResult
returnedlocation = filedialog.ShowDialog()
If returnedlocation = Windows.Forms.DialogResult.OK Then
If filedialog.CheckFileExists = True And filedialog.CheckPathExists = True Then
TextBox1.Text = filedialog.FileName
End If
End If
End Sub
Merge Microsoft Word Documents (12-Oct @ 14:18)
Syntax Highlighted Code
- Sub MergeDocs()
- Dim rng As Range
- Dim MainDoc As Document
- Dim strFile As String
- [9 more lines...]
Plain Code
Sub MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
Const strFolder = "C:\Book\Chapters\" 'change to suit
Set MainDoc = Documents.Add
strFile = Dir$(strFolder & "*.doc") ' can change to .docx
Do Until strFile = ""
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Loop
End Sub
Untitled Visual Basic (30-Aug @ 19:22)
Syntax Highlighted Code
- textbox1.text()
Plain Code
textbox1.text()
Untitled Visual Basic (10-Jun @ 15:37)
Syntax Highlighted Code
- Set m_MAPO = New MAPO ' Erst mal die Instanz erzeugen
- Application.AddEventsConsumer m_MAPO ' Eventklassenbei FlowFact anmelden
- [21 more lines...]
Plain Code
Set m_MAPO = New MAPO ' Erst mal die Instanz erzeugen
Application.AddEventsConsumer m_MAPO ' Eventklassenbei FlowFact anmelden
commands.add "MAPO","OKarte","ShowMapO","bmpAKT"
commands.add "ROUTE24","Route planen","ShowRoute24","bmpINTERNET"
Sub ShowMapO
' Set rstOBJDet_Strasse = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstAKT("OBJ_DSN") & "' and FLDART.Kürzel = 'Straße'")
' If rstOBJDet_Strasse.Recordcount > 0 Then strStrasse = rstOBJDet_Strasse("Eingabe")
' Set rstOBJDet_Ort = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstAKT("OBJ_DSN") & "' and FLDART.Kürzel = 'LAND_PLZ_ORT'")
' If rstOBJDet_Ort.Recordcount > 0 Then strOrt = rstOBJDet_Ort("Eingabe")
' strNotiz = replace(strNotiz, "#adresse#", strStrasse & ", " & strOrt)
' If Application.Panes("F_AKT").DSN<>"" Then
with Application.Panes("F_AKT")
strURL = "http://www.falk.de/stadtplan/stadtplan.jsp?addressCity=S%C3%BCrth&" & "&addressZip=" & .rs("AKT_OBJ_LAND_PLZ") & "&addressStreet=" & .rs("AKT_OBJ_STRAßE") & "&addressCountry=DEU"
End with
commands.execute "HOME",strURL
application.caption ="FlowFact Karte"
Else
msgbox "Keine aktive Adresse vorhanden!"
End If
End Sub
Untitled Visual Basic (10-Jun @ 14:27)
Syntax Highlighted Code
- Set rstOBJDet_Strasse = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstOBJ("OBJ_DSN") & "' and FLDART.Kürzel = 'Straße'")
- If rstOBJDet_Strasse.Recordcount > 0 Then strStrasse = rstOBJDet_Strasse("Eingabe")
Plain Code
Set rstOBJDet_Strasse = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstOBJ("OBJ_DSN") & "' and FLDART.Kürzel = 'Straße'")
If rstOBJDet_Strasse.Recordcount > 0 Then strStrasse = rstOBJDet_Strasse("Eingabe")
Untitled Visual Basic (29-Oct @ 12:46)
Syntax Highlighted Code
- Option Explicit
- Private iAantalTransP1, iAantalTransP2, iAantalTransP3, iAantalTransP4, _
- iAantalTransP5, iAantalTransP6, iAantalTransP7, iAantalTransP8, iTotaalAantal As Integer
- [40 more lines...]
Plain Code
Option Explicit
Private iAantalTransP1, iAantalTransP2, iAantalTransP3, iAantalTransP4, _
iAantalTransP5, iAantalTransP6, iAantalTransP7, iAantalTransP8, iTotaalAantal As Integer
Private Sub Form_Load()
Dim naam As String
naam = InputBox("wat is je naam ?")
While naam <> "einde"
Select Case InputBox("dag " & naam & ", geef uw vervoerscode in")
Case 1
iAantalTransP1 = iAantalTransP1 + 1
Case 2
iAantalTransP2 = iAantalTransP2 + 1
Case 3
iAantalTransP3 = iAantalTransP3 + 1
Case 4
iAantalTransP4 = iAantalTransP4 + 1
Case 5
iAantalTransP5 = iAantalTransP5 + 1
Case 6
iAantalTransP6 = iAantalTransP6 + 1
Case 7
iAantalTransP7 = iAantalTransP7 + 1
Case 8
iAantalTransP8 = iAantalTransP8 + 1
End Select
iTotaalAantal = iTotaalAantal + 1
naam = InputBox("wat is je naam ?")
Wend
TxtProcent1.Text = Format(iAantalTransP1 * 100 / iTotaalAantal, "##.##")
TxtProcent2.Text = Format(iAantalTransP2 * 100 / iTotaalAantal, "##.##")
TxtProcent3.Text = Format(iAantalTransP3 * 100 / iTotaalAantal, "##.##")
TxtProcent4.Text = Format(iAantalTransP4 * 100 / iTotaalAantal, "##.##")
TxtProcent5.Text = Format(iAantalTransP5 * 100 / iTotaalAantal, "##.##")
TxtProcent6.Text = Format(iAantalTransP6 * 100 / iTotaalAantal, "##.##")
TxtProcent7.Text = Format(iAantalTransP7 * 100 / iTotaalAantal, "##.##")
TxtProcent8.Text = Format(iAantalTransP8 * 100 / iTotaalAantal, "##.##")
End Sub
Untitled Visual Basic (27-Sep @ 20:00)
Syntax Highlighted Code
- Dim x As Integer
- x = 5
- MsgBox(x*5)
Plain Code
Dim x As Integer
x = 5
MsgBox(x*5)
Untitled Visual Basic (26-Aug @ 19:28)
Syntax Highlighted Code
- msgbox "ola mundo"
Plain Code
msgbox "ola mundo"
Untitled Visual Basic (28-Jul @ 18:43)
Syntax Highlighted Code
- <%
- '---------------------------------------------------------------------------------------------
- ' SOOP 2.0 - Phoenix (TNG)
- '
- [351 more lines...]
Plain Code
<%
'---------------------------------------------------------------------------------------------
' SOOP 2.0 - Phoenix (TNG)
'
' Revision 2.00 - initial 15/02/2008
'
' SOOPPortal All Rights Reserved - Other copyrights as mentioned in sources or joined licences
'---------------------------------------------------------------------------------------------
' QuickTools For SooP Phoenix 2.0 V1.0
' Written By Ph4nt0m
' Based on original QuickTools for SooP V1 by Q
'---------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------
function Module_QuickTools(blnToggleModule,Module_Permission, Module_ID, Module_Parameters)
if Module_Permission = 0 Then exit Function
If Module_Parameters = "" Then exit Function
'Define Variables
Dim strBoxTitle,blnShowEmail,blnShowBookmark,blnShowPrintpage,blnShowContact,blnShowQContact
Dim strSendPage,strSendQuickCommentsEmailTo,strSendEmailTo,strSendFromEmail,strBookMarkTitle
Dim strYourEmailAddress,strQCemailsender,sTempName,arrUser,ssql,strContactURL
Dim strCustomTitle1, strCustomLink1, strCustomTitle2, strCustomLink2, strCustomTitle3, strCustomLink3
If ubound(split(Module_Parameters, ",")) <> 8 Then Exit Function
%>
<!--#include file="languages/QuickTools_Language.asp"-->
<%
'Get Module Parameters
strBoxTitle = cor.filter.checkStr(split(Module_Parameters,",")(0))
blnShowBookmark = CBool(split(Module_Parameters,",")(1))
blnShowPrintpage = CBool(split(Module_Parameters,",")(2))
blnShowContact = CBool(split(Module_Parameters,",")(3))
blnShowEmail = CBool(split(Module_Parameters,",")(4))
blnShowQContact = CBool(split(Module_Parameters,",")(5))
strSendQuickCommentsEmailTo = cor.filter.checkStr(split(Module_Parameters,",")(6))
strSendFromEmail = cor.filter.checkStr(split(Module_Parameters,",")(7))
strContactURL = cor.filter.checkStr(split(Module_Parameters,",")(8))
' Load language files
cor.lng.includeSection("mod_xmlQuickTools")
' Check to see if user has a email address
If cor_sLoggedInUserEmail = "" Then
strYourEmailAddress = strYourEmailAddressLabel
Else
strYourEmailAddress = cor_sLoggedInUserEmail
End If
' Check to see if the user has a real name
ssql = "SELECT mname FROM " & cor_dbpre & "members WHERE mid = {0}"
cor.dal.open arrUser, ssql, array(cor_lUserID)
if Not cor.butil.eof(arrUser) Then
sTempName = arrUser(0,0)
if instr(sTempName," ")> 0 Then
sTempName = left(sTempName,instrRev(sTempName," ")-1)
end If
Else
sTempName = cor_sLoggedInUsername
end If
If sTempName = "" then sTempName = cor_sLoggedInUsername
sTempName = ucase(left(sTempName,1)) & mid(sTempName,2)
strQCemailsender = sTempName
' Javascript functions for forms etc
%>
<script type="text/javascript" src="<%= cor_sWebroot %>mods/jscss/jquery.livequery.js"></script>
<script language="JavaScript">
function addBookmark(title,url) {
if (window.sidebar) {
window.sidebar.addPanel(title, url,'');
} else if( document.all ) {
window.external.AddFavorite( url, title);
} else if( window.opera && window.print ) {
return true;
}
}
// prepare the form when the DOM is ready
$(document).ready(function() {
var options = {
target: '#responsediv', // target element(s) to be updated with server response
success: showResponse // post-submit callback
};
// bind to form's submit events
$('#qcmailus').submit(function() {
$(this).ajaxSubmit(options);
return false;
});
$('#epmailus').submit(function() {
$(this).ajaxSubmit(options);
return false;
});
$('#qcreturn').submit(function() {
$(this).ajaxSubmit(options);
return false;
});
$('#epreturn').submit(function() {
$(this).ajaxSubmit(options);
return false;
});
// Animate divs
$('#qcmailus').submit(function () {
$("#bookmarkdiv").slideUp("slow");
$("#printpagediv").slideUp("slow");
$("#contactdiv").slideUp("slow")
$("#emailpagelink").slideUp("slow");
$("#contactlink").slideUp("slow");
$("#emailpagediv").slideUp("slow");
$("#quickcontactdiv").slideUp("slow");
$("#responsediv").show("slow");
$("#qcreturndiv").show("slow");
$("#epreturndiv").slideUp("slow");
});
$('#epmailus').submit(function () {
$("#bookmarkdiv").slideUp("slow");
$("#printpagediv").slideUp("slow");
$("#contactdiv").slideUp("slow")
$("#emailpagelink").slideUp("slow");
$("#contactlink").slideUp("slow");
$("#emailpagediv").slideUp("slow");
$("#quickcontactdiv").slideUp("slow");
$("#responsediv").show("slow");
$("#qcreturndiv").slideUp("slow");
$("#epreturndiv").show("slow");
});
$('#epreturn').submit(function () {
$("#bookmarkdiv").slideUp("slow");
$("#printpagediv").slideUp("slow");
$("#contactdiv").slideUp("slow")
$("#emailpagelink").show("slow");
$("#contactlink").slideUp("slow");
$("#emailpagediv").show("slow");
$("#quickcontactdiv").slideUp("slow");
$("#responsediv").slideUp("slow");
$("#qcreturndiv").slideUp("slow");
$("#epreturndiv").slideUp("slow");
});
$('#qcreturn').submit(function () {
$("#bookmarkdiv").slideUp("slow");
$("#printpagediv").slideUp("slow");
$("#contactdiv").slideUp("slow")
$("#emailpagelink").slideUp("slow");
$("#contactlink").show("slow");
$("#emailpagediv").slideUp("slow");
$("#quickcontactdiv").show("slow");
$("#responsediv").slideUp("slow");
$("#qcreturndiv").slideUp("slow");
$("#epreturndiv").slideUp("slow");
});
// Animate QC div toggle
$(".contact").click(function () {
$("#quickcontactdiv").slideToggle("slow");
$("#captchadiv").slideToggle("slow");
$("#emailpagelink").slideToggle("slow");
$("#bookmarkdiv").slideToggle("slow");
$("#printpagediv").slideToggle("slow");
$("#contactdiv").slideToggle("slow");
$("#qcimg").slideToggle(100);
$("#qcimg2").slideToggle(100);
});
// Animate Email Page Div Toggle
$(".email").click(function () {
$("#captchadiv").slideToggle("slow");
$("#emailpagediv").slideToggle("slow");
$("#contactlink").slideToggle("slow");
$("#bookmarkdiv").slideToggle("slow");
$("#printpagediv").slideToggle("slow");
$("#contactdiv").slideToggle("slow");
$("#epimg").slideToggle(100);
$("#epimg2").slideToggle(100);
});
});
// post-submit callback
function showResponse(responseText, statusText) {
alert('status: ' + statusText + '\n\nresponseText: \n' + responseText +
'\n\nThe output div should have already been updated with the responseText.');
};
</script>
<%
'
' Get current URL for send page via email
strSendPage = "http://" & request.servervariables("SERVER_NAME") & Request.Servervariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING")
'Set Module Box
Dim Module_Name : Module_Name = "QuickTools"
Dim Header_Text : Header_Text = strBoxTitle
Dim Module_Hide : Module_Hide = blnToggleModule
Dim Module_tool_Tip : Module_tool_Tip = True
Dim Module_Tool_Tip_Text : Module_Tool_Tip_Text = cor_sModTT
'Main HTML For Module
cor.str.add "<dl>"
If blnShowBookmark Then
cor.str.add "<div id=""bookmarkdiv"">"
cor.str.add "<dd class=""smText"" style=""float:left;"">"
cor.str.add "<img style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
cor.str.add "</dd>"
cor.str.add "<dd class=""smText"">"
cor.str.add "<a class=""SmLink"" href=""javascript:addBookmark('" & lngWebSiteTitle & "','http://" & Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name") & "?" & Request.QueryString() & "')"">" & lngQTBookmarkPage & "</a>"
cor.str.add "</dd>"
cor.str.add "</div>"
End If
If blnShowPrintpage Then
cor.str.add "<div id=""printpagediv"">"
cor.str.add "<dd class=""smText"" style=""float:left;"">"
cor.str.add "<img style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
cor.str.add "</dd>"
cor.str.add "<dd class=""smText"">"
cor.str.add "<a href=""javascript:print()"">" & lngQTPrintPage & "</a>"
cor.str.add "</dd>"
cor.str.add "</div>"
End If
If blnShowContact Then
cor.str.add "<div id=""contactdiv"">"
cor.str.add "<dd class=""smText"" style=""float:left;"">"
cor.str.add "<img style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
cor.str.add "</dd>"
cor.str.add "<dd class=""smText"">"
cor.str.add "<a class=""openwn"" href=""" & strContactURL & """>" & lngQTContactPage & "</a>"
cor.str.add "</dd>"
cor.str.add "</div>"
End If
If blnShowEmail Then
cor.str.add "<div id=""emailpagelink"">"
cor.str.add "<dd class=""smText"" style=""float:left;"">"
cor.str.add "<img id=""epimg"" style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
cor.str.add "<a href=""javascript:void(0)"" class=""email""><img id=""epimg2"" style=""padding-left:5px; padding-right:5px; display:none;"" src=""" & cor_sSkinImg & "hide_min.gif""></a>"
cor.str.add "</dd>"
cor.str.add "<dd class=""smText"">"
cor.str.add "<a href=""javascript:void(0)"" class=""email"">" & lngQTEmailPage & "</a>"
cor.str.add "</dd>"
cor.str.add "</div>"
End If
If blnShowQContact Then
cor.str.add "<div id=""contactlink"">"
cor.str.add "<dd class=""smText"" style=""float:left;"">"
cor.str.add "<img id=""qcimg"" style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
cor.str.add "<a href=""javascript:void(0)"" class=""contact""><img id=""qcimg2"" style=""padding-left:5px; padding-right:5px; display:none;"" src=""" & cor_sSkinImg & "hide_min.gif""></a>"
cor.str.add "</dd>"
cor.str.add "<dd class=""smText"">"
cor.str.add "<a href=""javascript:void(0)"" class=""contact"">" & lngQTQCus & "</a>"
cor.str.add "</dd>"
cor.str.add "</div>"
End If
If blnShowEmail Then
cor.str.add "<div id=""emailpagediv"" style=""display:none;"">"
cor.str.add "<form method=""post"" action=""qmail.asp"" id=""epmailus"">"
cor.str.add "<input Type=""hidden"" name=""faction"" Value=""epage"">"
cor.str.add "<input type=""hidden"" name=""sessionName"" value=""" & cor.filter.encrypt("qcc") & """>"
cor.str.add "<input type=""hidden"" name=""strlink"" value=""" & strSendPage & """>"
cor.str.add "<dl>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add lngQTYourName & "<br /><Input class=""input"" Type=""text"" name=""name"" Value=""" & strQCemailsender & """ Size=""22"">"
cor.str.add "</dt>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add lngQTYourEmailAddress & "<br /><Input class=""input"" Type=""text"" name=""email"" Value=""" & strYourEmailAddress & """ Size=""22"">"
cor.str.add "</dt>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add lngQTEmailTo & "<br /><Input class=""input"" onFocus=""this.value=''"" Type=""text"" id=""toemail"" name=""toemail"" Value="""" Size=""22"">"
cor.str.add "</dt>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add "<Textarea class=""input"" name=""comment"" Cols=""20"" Rows=""5"" Wrap=""SOFT"">" & lngQTHeyIFound & "</Textarea>"
cor.str.add "</dt>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add "<img id=""secureImages" & cor.filter.encrypt("qcc") & """ src=""" & cor_sWebroot & "securecode.asp?r=" & clng(Rnd * 10000000) & "&id=" & cor.filter.encrypt("qcc") & """ alt="""" /><br />"
cor.str.add "<a href=""javascript:void(0)"" class=""secureImg"" rel=""" & cor.filter.encrypt("qcc") & """>" & lngTextReload & "</a><br />"
cor.str.add lngConfirmSecurityCode & "<br /><input onFocus=""this.value=''"" type=""text"" id=""securityCode"" value="""" name=""securityCode"" class="""" />"
cor.str.add "</dt>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""epSendComments"" Value=""" & lngQTSendEmail & """>"
cor.str.add "</dt>"
cor.str.add "</dl>"
cor.str.add "</form>"
cor.str.add "</div>"
End If
If blnShowQContact Then
cor.str.add "<form method=""post"" action=""qmail.asp"" id=""qcmailus"">"
cor.str.add "<div id=""quickcontactdiv"" style=""display:none;"">"
cor.str.add "<input Type=""hidden"" name=""faction"" Value=""cpage"">"
cor.str.add "<dl>"
cor.str.add "<dd class=""smText"">"
cor.str.add "</dd>"
cor.str.add "<dt class=""smText"" style=""width:80%; text-align:center; margin-left:10%; margin-right:10%; border-style:dashed; border-width:thin"">"
cor.str.add lngQTHaveAQuestion
cor.str.add "</dt>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add lngQTYourEmailAddress & "<br /><Input onFocus=""this.value=''"" class=""input"" Type=""text"" name=""email"" Value=""" & strYourEmailAddress & """ Size=""22"">"
cor.str.add "</dt>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add "<Textarea class=""input"" onFocus=""this.value=''"" name=""comment"" Cols=""20"" Rows=""5"" Wrap=""SOFT"">" & lngQTEnterYourComment & "</Textarea>"
cor.str.add "</dt>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add "<img id=""secureImages" & cor.filter.encrypt("epc") & """ src=""" & cor_sWebroot & "securecode.asp?r=" & clng(Rnd * 10000000) & "&id=" & cor.filter.encrypt("epc") & """ alt="""" /><br />"
cor.str.add "<a href=""javascript:void(0)"" class=""secureImg"" rel=""" & cor.filter.encrypt("epc") & """>" & lngTextReload & "</a><br />"
cor.str.add lngConfirmSecurityCode & "<br /><input onFocus=""this.value=''"" type=""text"" id=""securityCode"" value="""" name=""securityCode"" class="""" />"
cor.str.add "</dt>"
cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""qcSendComments"" Value=""" & lngQTSendEmail & """>"
cor.str.add "<input type=""hidden"" name=""subject"" value=""" & lngQTNewQCEmail & """>"
cor.str.add "<input type=""hidden"" name=""toemail"" value=""" & strSendQuickCommentsEmailTo & """>"
cor.str.add "<input type=""hidden"" name=""sessionName"" value=""" & cor.filter.encrypt("epc") & """>"
cor.str.add "</dt>"
cor.str.add "</dl>"
cor.str.add "</div>"
cor.str.add "</form>"
End If
If blnShowQContact Or blnShowEmail Then
cor.str.add "<div id=""responsediv"" style=""display:none;"">"
cor.str.add "<dl class=""text"" id=""responsedivchild"" style=""padding:15px; text-align:center"">"
cor.str.add "<img id=""loading"" src=""" & cor_sSkinImg & "ajax_busy.gif"">"
cor.str.add "</dl>"
cor.str.add "</div>"
End If
If blnShowQContact Then
cor.str.add "<dl class=""text"" id=""qcreturndiv"" style=""display:none; padding-left:10px;"">"
cor.str.add "<form method=""post"" id=""qcreturn"" action=""qmail.asp"">"
cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""Back"" Value=""Back"">"
cor.str.add "</form>"
cor.str.add "</dl>"
End If
If blnShowEmail Then
cor.str.add "<dl class=""text"" id=""epreturndiv"" style=""display:none; padding-left:10px;"">"
cor.str.add "<form method=""post"" id=""epreturn"" action=""qmail.asp"">"
cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""Back"" Value=""Back"">"
cor.str.add "</form>"
cor.str.add "</dl>"
End If
cor.str.add "</dl>"
'cor.str.add "</div>"
'===========================================================
call cor.modbox.printBox(blnToggleModule,Module_Hide,Module_tool_Tip,Module_Name,Module_ID,Header_Text,cor.str.build,Module_Tool_Tip_Text)
end Function
'
'<#late-binding hook (do not remove)
function boot_Module_QuickTools : boot_Module_QuickTools = true : end function
'/>
%>