HTBasic 9.3

home *** CD-ROM | disk | FTP | other *** search

/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / DLL_Toolkit / Source / HTBUserName / Samples / HTBUsername.bas next >

Unknown | 2005-03-02 | 1.2 KB

open in:

MacOS 8.1 |

Win98 |

DOS

view JSON data |

view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`65%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 04 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 49 31 20 21 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.I1 !***|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 00 00 05 32 20 |********|***...2 |
|00000150| 21 2a 2a 00 00 1e 33 20 | 21 2a 2a 20 20 20 20 4e |!**...3 |!**    N|
|00000160| 61 6d 65 3a 20 48 54 42 | 55 73 65 72 6e 61 6d 65 |ame: HTB|Username|
|00000170| 2e 62 61 73 00 05 34 20 | 21 2a 2a 00 00 48 35 20 |.bas..4 |!**..H5 |
|00000180| 21 2a 2a 20 20 20 20 44 | 65 73 63 72 69 70 74 69 |!**    D|escripti|
|00000190| 6f 6e 3a 20 55 73 65 73 | 20 74 68 65 20 48 54 42 |on: Uses| the HTB|
|000001a0| 55 73 65 72 4e 61 6d 65 | 2e 64 6c 6c 20 74 6f 20 |UserName|.dll to |
|000001b0| 72 65 74 75 72 6e 20 74 | 68 65 20 6e 61 6d 65 20 |return t|he name |
|000001c0| 6f 66 20 74 68 65 00 48 | 36 20 21 2a 2a 20 20 20 |of the.H|6 !**   |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 43 75 |        |      Cu|
|000001e0| 72 72 65 6e 74 20 55 73 | 65 72 20 6c 6f 67 67 65 |rrent Us|er logge|
|000001f0| 64 20 6f 6e 20 74 6f 20 | 74 68 65 20 73 79 73 74 |d on to |the syst|
|00000200| 65 6d 2e 20 54 68 65 20 | 66 75 6e 63 74 69 6f 6e |em. The |function|
|00000210| 00 49 37 20 21 2a 2a 20 | 20 20 20 20 20 20 20 20 |.I7 !** |        |
|00000220| 20 20 20 20 20 20 20 20 | 47 65 74 75 73 65 72 20 |        |Getuser |
|00000230| 74 61 6b 65 73 20 61 20 | 73 74 72 69 6e 67 20 61 |takes a |string a|
|00000240| 73 20 61 20 70 61 72 61 | 6d 65 74 65 72 2c 20 61 |s a para|meter, a|
|00000250| 6e 64 20 74 68 65 20 55 | 73 65 72 00 00 36 38 20 |nd the U|ser..68 |
|00000260| 21 2a 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |!**     |        |
|00000270| 20 20 20 20 4e 61 6d 65 | 20 69 73 20 72 65 74 75 |    Name| is retu|
|00000280| 72 6e 65 64 20 69 6e 20 | 74 68 61 74 20 73 74 72 |rned in |that str|
|00000290| 69 6e 67 2e 00 05 39 20 | 21 2a 2a 00 00 4a 31 30 |ing...9 |!**..J10|
|000002a0| 20 21 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | !******|********|
|000002b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 00 04 31 31 20 21 00 56 |********|..11 !.V|
|000002f0| 31 32 20 44 49 4d 20 55 | 73 65 72 6e 61 6d 65 24 |12 DIM U|sername$|
|00000300| 5b 32 35 36 5d 20 20 20 | 20 20 20 20 20 21 44 69 |[256]   |     !Di|
|00000310| 6d 65 6e 73 69 6f 6e 20 | 61 20 53 74 72 69 6e 67 |mension |a String|
|00000320| 20 6c 61 72 67 65 20 65 | 6e 6f 75 67 68 20 74 6f | large e|nough to|
|00000330| 20 63 6f 6e 74 61 69 6e | 20 61 6e 79 20 55 73 65 | contain| any Use|
|00000340| 72 20 4e 61 6d 65 00 04 | 31 33 20 21 00 4b 31 34 |r Name..|13 !.K14|
|00000350| 20 44 4c 4c 20 55 4e 4c | 4f 41 44 20 41 4c 4c 20 | DLL UNL|OAD ALL |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000370| 20 20 20 20 20 20 20 21 | 55 6e 6c 6f 61 64 20 61 |       !|Unload a|
|00000380| 6c 6c 20 63 75 72 72 65 | 6e 74 6c 79 20 6c 6f 61 |ll curre|ntly loa|
|00000390| 64 65 64 20 44 4c 4c 27 | 73 00 00 43 31 35 20 44 |ded DLL'|s..C15 D|
|000003a0| 4c 4c 20 4c 4f 41 44 20 | 22 48 54 42 55 73 65 72 |LL LOAD |"HTBUser|
|000003b0| 4e 61 6d 65 22 20 20 20 | 20 20 20 20 20 20 20 20 |Name"   |        |
|000003c0| 20 20 20 20 20 21 4c 6f | 61 64 20 74 68 65 20 48 |     !Lo|ad the H|
|000003d0| 54 42 55 73 65 72 4e 61 | 6d 65 20 44 4c 4c 2e 00 |TBUserNa|me DLL..|
|000003e0| 00 4f 31 36 20 44 4c 4c | 20 47 45 54 20 22 56 4f |.O16 DLL| GET "VO|
|000003f0| 49 44 20 48 54 42 55 73 | 65 72 4e 61 6d 65 3a 47 |ID HTBUs|erName:G|
|00000400| 65 74 75 73 65 72 22 20 | 20 20 20 21 47 65 74 20 |etuser" |   !Get |
|00000410| 74 68 65 20 47 65 74 75 | 73 65 72 20 46 75 6e 63 |the Getu|ser Func|
|00000420| 74 69 6f 6e 20 66 72 6f | 6d 20 74 68 65 20 44 4c |tion fro|m the DL|
|00000430| 4c 00 00 04 31 37 20 21 | 00 4d 31 38 20 47 65 74 |L...17 !|.M18 Get|
|00000440| 75 73 65 72 28 55 73 65 | 72 6e 61 6d 65 24 29 20 |user(Use|rname$) |
|00000450| 20 20 20 21 43 61 6c 6c | 20 74 68 65 20 47 65 74 |   !Call| the Get|
|00000460| 75 73 65 72 20 6e 61 6d | 65 20 66 75 6e 63 74 69 |user nam|e functi|
|00000470| 6f 6e 20 70 61 73 73 69 | 6e 67 20 69 6e 20 55 73 |on passi|ng in Us|
|00000480| 65 72 6e 61 6d 65 24 00 | 00 04 31 39 20 21 00 5e |ername$.|..19 !.^|
|00000490| 32 30 20 50 52 49 4e 54 | 20 22 54 68 65 20 63 75 |20 PRINT| "The cu|
|000004a0| 72 72 65 6e 74 20 75 73 | 65 72 20 6c 6f 67 67 65 |rrent us|er logge|
|000004b0| 64 20 69 6e 74 6f 20 74 | 68 65 20 73 79 73 74 65 |d into t|he syste|
|000004c0| 6d 20 69 73 3a 20 22 3b | 55 73 65 72 6e 61 6d 65 |m is: ";|Username|
|000004d0| 24 20 20 20 20 21 50 72 | 69 6e 74 20 6f 75 74 20 |$    !Pr|int out |
|000004e0| 74 68 65 20 55 73 65 72 | 20 6e 61 6d 65 2e 00 04 |the User| name...|
|000004f0| 32 31 20 21 00 06 32 32 | 20 45 4e 44 ff ff       |21 !..22| END..  |
+--------+-------------------------+-------------------------+--------+--------+