Advertisement
Guest User

Untitled

a guest
Aug 18th, 2017
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.41 KB | None | 0 0
  1.  
  2. import VB.*;
  3. import VBA.*;
  4. import java.awt.Component;
  5.  
  6. public class frmMain extends Form
  7. {
  8.  
  9. public void cmdAuthenticate_Click()
  10. {
  11. Throwable Err = null;
  12. lblStatus.$Caption("Unable to login to Twitter.");
  13. _L1:
  14. return;
  15. _L2:
  16. Interaction.MsgBox((Throwable)Err);
  17. goto _L1
  18. Err;
  19. goto _L2
  20. }
  21.  
  22. VBVariant testauth()
  23. {
  24. VBVariant testauth = new VBVariant();
  25. Throwable Err = null;
  26. return testauth;
  27. }
  28.  
  29. public void Form_Load()
  30. {
  31. Throwable Err = null;
  32. }
  33.  
  34. public frmMain()
  35. {
  36. initVars();
  37. }
  38.  
  39. private void initVars()
  40. {
  41. $Transparency(0);
  42. $AntiAliasing(false);
  43. $AutoRedraw(false);
  44. $Picture((IResource)null);
  45. $DrawWidth(1);
  46. $BackColor(0xc08000);
  47. $ForeColor(0x80000012);
  48. $FontName("Arial");
  49. $FontBold(false);
  50. $FontItalic(false);
  51. $FontSize(9);
  52. $StartUpPosition(StartUpPositionConstants.vbStartUpScreen);
  53. $BorderStyle(FormBorderStyleConstants.vbSizable);
  54. $Caption("BrandTweet");
  55. $MenuBackColor(0x80000004);
  56. $MenuForeColor(0x80000007);
  57. $ToolBackColor(0x80000004);
  58. $ToolForeColor(0x80000007);
  59. $WindowState(FormWindowStateConstants.vbNormal);
  60. $Icon((IResource)null);
  61. $Width(289);
  62. $Height(212);
  63. $Enabled(-1);
  64. $MousePointer(MousePointerConstants.vbDefault);
  65. $MouseIcon((IResource)null);
  66. $CanGetFocus(-1);
  67. frmMain _tmp = Me;
  68. $Left(0);
  69. $Top(0);
  70. $Visible(-1);
  71. frmMain _tmp1 = Me;
  72. lblTwitter = new Label();
  73. lblTwitter.setOwner(Me, 1);
  74. lblTwitter.$TextAlign(fmTextAlign.fmTextAlignCenter);
  75. lblTwitter.$PicturePosition(fmPicturePosition.fmPicturePositionLeftTop);
  76. lblTwitter.$BackStyle(BackStyleConstants.vbTransparent);
  77. lblTwitter.$BorderColor(255);
  78. lblTwitter.$BorderStyle(fmBorderStyle.fmBorderStyleNone);
  79. lblTwitter.$SpecialEffect(fmSpecialEffect.fmSpecialEffectFlat);
  80. lblTwitter.$Caption("Login to Twitter");
  81. lblTwitter.$Picture((IResource)null);
  82. lblTwitter.$FontName("Lucida Console");
  83. lblTwitter.$FontBold(false);
  84. lblTwitter.$FontItalic(false);
  85. lblTwitter.$FontSize(18);
  86. lblTwitter.$BackColor(0x8000000f);
  87. lblTwitter.$ForeColor(0x80000012);
  88. lblTwitter.$Width(233);
  89. lblTwitter.$Height(41);
  90. lblTwitter.$ToolTip("");
  91. lblTwitter.$Enabled(-1);
  92. lblTwitter.$Tag("");
  93. lblTwitter.$MousePointer(MousePointerConstants.vbDefault);
  94. lblTwitter.$MouseIcon((IResource)null);
  95. lblTwitter.$CanGetFocus(-1);
  96. Label _tmp2 = lblTwitter;
  97. add((Component)lblTwitter);
  98. lblTwitter.$Left(32);
  99. lblTwitter.$Top(16);
  100. lblTwitter.$Visible(-1);
  101. Label _tmp3 = lblTwitter;
  102. txtUsername = new TextBox();
  103. txtUsername.setOwner(Me, 2);
  104. txtUsername.$BorderStyle(fmBorderStyle.fmBorderStyleSingle);
  105. txtUsername.$HScrollBar(vbScrollBarPolicy.sbShowNever);
  106. txtUsername.$VScrollBar(vbScrollBarPolicy.sbShowNever);
  107. txtUsername.$Text("Username");
  108. txtUsername.$BackColorSel(0x8000000d);
  109. txtUsername.$ForeColorSel(0x8000000e);
  110. txtUsername.$MultiLine(false);
  111. txtUsername.$TabSize(4);
  112. txtUsername.$ForwardTab(-1);
  113. txtUsername.$Locked(false);
  114. txtUsername.$FontName("Arial");
  115. txtUsername.$FontBold(false);
  116. txtUsername.$FontItalic(false);
  117. txtUsername.$FontSize(9);
  118. txtUsername.$BackColor(0x80000005);
  119. txtUsername.$ForeColor(0x80000008);
  120. txtUsername.$Width(209);
  121. txtUsername.$Height(25);
  122. txtUsername.$ToolTip("");
  123. txtUsername.$Enabled(-1);
  124. txtUsername.$Tag("");
  125. txtUsername.$MousePointer(MousePointerConstants.vbDefault);
  126. txtUsername.$MouseIcon((IResource)null);
  127. txtUsername.$CanGetFocus(-1);
  128. TextBox _tmp4 = txtUsername;
  129. add((Component)txtUsername);
  130. txtUsername.$Left(40);
  131. txtUsername.$Top(56);
  132. txtUsername.$Visible(-1);
  133. TextBox _tmp5 = txtUsername;
  134. pwdPassword = new PasswordField();
  135. pwdPassword.setOwner(Me, 3);
  136. pwdPassword.$BorderStyle(fmBorderStyle.fmBorderStyleSingle);
  137. pwdPassword.$Text("password");
  138. pwdPassword.$BackColorSel(0x8000000d);
  139. pwdPassword.$ForeColorSel(0x8000000e);
  140. pwdPassword.$BackColor(0x80000005);
  141. pwdPassword.$ForeColor(0x80000008);
  142. pwdPassword.$Width(209);
  143. pwdPassword.$Height(25);
  144. pwdPassword.$ToolTip("");
  145. pwdPassword.$Enabled(-1);
  146. pwdPassword.$Tag("");
  147. pwdPassword.$MousePointer(MousePointerConstants.vbDefault);
  148. pwdPassword.$MouseIcon((IResource)null);
  149. pwdPassword.$CanGetFocus(-1);
  150. PasswordField _tmp6 = pwdPassword;
  151. add((Component)pwdPassword);
  152. pwdPassword.$Left(40);
  153. pwdPassword.$Top(88);
  154. pwdPassword.$Visible(-1);
  155. PasswordField _tmp7 = pwdPassword;
  156. cmdAuthenticate = new CommandButton();
  157. cmdAuthenticate.setOwner(Me, 4);
  158. cmdAuthenticate.$Caption("Login!");
  159. cmdAuthenticate.$Picture((IResource)null);
  160. cmdAuthenticate.$RolloverPicture((IResource)null);
  161. cmdAuthenticate.$PicturePosition(fmPicturePosition.fmPicturePositionLeftCenter);
  162. cmdAuthenticate.$FontName("Arial");
  163. cmdAuthenticate.$FontBold(false);
  164. cmdAuthenticate.$FontItalic(false);
  165. cmdAuthenticate.$FontSize(9);
  166. cmdAuthenticate.$BackColor(0x8000000f);
  167. cmdAuthenticate.$ForeColor(0x80000012);
  168. cmdAuthenticate.$Width(81);
  169. cmdAuthenticate.$Height(33);
  170. cmdAuthenticate.$ToolTip("Login to twitter");
  171. cmdAuthenticate.$Enabled(-1);
  172. cmdAuthenticate.$Tag("");
  173. cmdAuthenticate.$MousePointer(MousePointerConstants.vbDefault);
  174. cmdAuthenticate.$MouseIcon((IResource)null);
  175. cmdAuthenticate.$CanGetFocus(-1);
  176. CommandButton _tmp8 = cmdAuthenticate;
  177. add((Component)cmdAuthenticate);
  178. cmdAuthenticate.$Left(168);
  179. cmdAuthenticate.$Top(120);
  180. cmdAuthenticate.$Visible(-1);
  181. CommandButton _tmp9 = cmdAuthenticate;
  182. lblStatus = new Label();
  183. lblStatus.setOwner(Me, 5);
  184. lblStatus.$TextAlign(fmTextAlign.fmTextAlignCenter);
  185. lblStatus.$PicturePosition(fmPicturePosition.fmPicturePositionLeftTop);
  186. lblStatus.$BackStyle(BackStyleConstants.vbTransparent);
  187. lblStatus.$BorderColor(0x80000002);
  188. lblStatus.$BorderStyle(fmBorderStyle.fmBorderStyleNone);
  189. lblStatus.$SpecialEffect(fmSpecialEffect.fmSpecialEffectFlat);
  190. lblStatus.$Caption("");
  191. lblStatus.$Picture((IResource)null);
  192. lblStatus.$FontName("Arial");
  193. lblStatus.$FontBold(false);
  194. lblStatus.$FontItalic(false);
  195. lblStatus.$FontSize(14);
  196. lblStatus.$BackColor(0x8000000f);
  197. lblStatus.$ForeColor(0x80000012);
  198. lblStatus.$Width(233);
  199. lblStatus.$Height(25);
  200. lblStatus.$ToolTip("");
  201. lblStatus.$Enabled(-1);
  202. lblStatus.$Tag("");
  203. lblStatus.$MousePointer(MousePointerConstants.vbDefault);
  204. lblStatus.$MouseIcon((IResource)null);
  205. lblStatus.$CanGetFocus(-1);
  206. Label _tmp10 = lblStatus;
  207. add((Component)lblStatus);
  208. lblStatus.$Left(40);
  209. lblStatus.$Top(176);
  210. lblStatus.$Visible(-1);
  211. Label _tmp11 = lblStatus;
  212. fireLoaded();
  213. }
  214.  
  215. private Label lblTwitter;
  216. private TextBox txtUsername;
  217. private PasswordField pwdPassword;
  218. private CommandButton cmdAuthenticate;
  219. private Label lblStatus;
  220.  
  221. private class Label extends VB.Label
  222. {
  223.  
  224. public void setOwner(frmMain frmmain, int i)
  225. {
  226. Owner = frmmain;
  227. ID = i;
  228. Index = -1;
  229. }
  230.  
  231. int ID;
  232. frmMain Owner;
  233. int Index;
  234.  
  235. public Label()
  236. {
  237. }
  238. }
  239.  
  240.  
  241. private class TextBox extends VB.TextBox
  242. {
  243.  
  244. public void setOwner(frmMain frmmain, int i)
  245. {
  246. Owner = frmmain;
  247. ID = i;
  248. Index = -1;
  249. }
  250.  
  251. int ID;
  252. frmMain Owner;
  253. int Index;
  254.  
  255. public TextBox()
  256. {
  257. }
  258. }
  259.  
  260.  
  261. private class PasswordField extends VB.PasswordField
  262. {
  263.  
  264. public void setOwner(frmMain frmmain, int i)
  265. {
  266. Owner = frmmain;
  267. ID = i;
  268. Index = -1;
  269. }
  270.  
  271. int ID;
  272. frmMain Owner;
  273. int Index;
  274.  
  275. public PasswordField()
  276. {
  277. }
  278. }
  279.  
  280.  
  281. private class CommandButton extends VB.CommandButton
  282. {
  283.  
  284. public void setOwner(frmMain frmmain, int i)
  285. {
  286. Owner = frmmain;
  287. ID = i;
  288. Index = -1;
  289. }
  290.  
  291. public void _Click()
  292. {
  293. Owner;
  294. if(4 != ID)
  295. break MISSING_BLOCK_LABEL_16;
  296. cmdAuthenticate_Click();
  297. return;
  298. return;
  299. }
  300.  
  301. int ID;
  302. frmMain Owner;
  303. int Index;
  304.  
  305. public CommandButton()
  306. {
  307. }
  308. }
  309.  
  310. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement