Advertisement
Guest User

Untitled

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