Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import VB.*;
- import VBA.*;
- import java.awt.Component;
- public class frmMain extends Form
- {
- public void cmdAuthenticate_Click()
- {
- Throwable Err = null;
- lblStatus.$Caption("Unable to login to Twitter.");
- _L1:
- return;
- _L2:
- Interaction.MsgBox((Throwable)Err);
- goto _L1
- Err;
- goto _L2
- }
- VBVariant testauth()
- {
- VBVariant testauth = new VBVariant();
- Throwable Err = null;
- return testauth;
- }
- public void Form_Load()
- {
- Throwable Err = null;
- }
- public frmMain()
- {
- initVars();
- }
- private void initVars()
- {
- $Transparency(0);
- $AntiAliasing(false);
- $AutoRedraw(false);
- $Picture((IResource)null);
- $DrawWidth(1);
- $BackColor(0xc08000);
- $ForeColor(0x80000012);
- $FontName("Arial");
- $FontBold(false);
- $FontItalic(false);
- $FontSize(9);
- $StartUpPosition(StartUpPositionConstants.vbStartUpScreen);
- $BorderStyle(FormBorderStyleConstants.vbSizable);
- $Caption("BrandTweet");
- $MenuBackColor(0x80000004);
- $MenuForeColor(0x80000007);
- $ToolBackColor(0x80000004);
- $ToolForeColor(0x80000007);
- $WindowState(FormWindowStateConstants.vbNormal);
- $Icon((IResource)null);
- $Width(289);
- $Height(212);
- $Enabled(-1);
- $MousePointer(MousePointerConstants.vbDefault);
- $MouseIcon((IResource)null);
- $CanGetFocus(-1);
- frmMain _tmp = Me;
- $Left(0);
- $Top(0);
- $Visible(-1);
- frmMain _tmp1 = Me;
- lblTwitter = new Label();
- lblTwitter.setOwner(Me, 1);
- lblTwitter.$TextAlign(fmTextAlign.fmTextAlignCenter);
- lblTwitter.$PicturePosition(fmPicturePosition.fmPicturePositionLeftTop);
- lblTwitter.$BackStyle(BackStyleConstants.vbTransparent);
- lblTwitter.$BorderColor(255);
- lblTwitter.$BorderStyle(fmBorderStyle.fmBorderStyleNone);
- lblTwitter.$SpecialEffect(fmSpecialEffect.fmSpecialEffectFlat);
- lblTwitter.$Caption("Login to Twitter");
- lblTwitter.$Picture((IResource)null);
- lblTwitter.$FontName("Lucida Console");
- lblTwitter.$FontBold(false);
- lblTwitter.$FontItalic(false);
- lblTwitter.$FontSize(18);
- lblTwitter.$BackColor(0x8000000f);
- lblTwitter.$ForeColor(0x80000012);
- lblTwitter.$Width(233);
- lblTwitter.$Height(41);
- lblTwitter.$ToolTip("");
- lblTwitter.$Enabled(-1);
- lblTwitter.$Tag("");
- lblTwitter.$MousePointer(MousePointerConstants.vbDefault);
- lblTwitter.$MouseIcon((IResource)null);
- lblTwitter.$CanGetFocus(-1);
- Label _tmp2 = lblTwitter;
- add((Component)lblTwitter);
- lblTwitter.$Left(32);
- lblTwitter.$Top(16);
- lblTwitter.$Visible(-1);
- Label _tmp3 = lblTwitter;
- txtUsername = new TextBox();
- txtUsername.setOwner(Me, 2);
- txtUsername.$BorderStyle(fmBorderStyle.fmBorderStyleSingle);
- txtUsername.$HScrollBar(vbScrollBarPolicy.sbShowNever);
- txtUsername.$VScrollBar(vbScrollBarPolicy.sbShowNever);
- txtUsername.$Text("Username");
- txtUsername.$BackColorSel(0x8000000d);
- txtUsername.$ForeColorSel(0x8000000e);
- txtUsername.$MultiLine(false);
- txtUsername.$TabSize(4);
- txtUsername.$ForwardTab(-1);
- txtUsername.$Locked(false);
- txtUsername.$FontName("Arial");
- txtUsername.$FontBold(false);
- txtUsername.$FontItalic(false);
- txtUsername.$FontSize(9);
- txtUsername.$BackColor(0x80000005);
- txtUsername.$ForeColor(0x80000008);
- txtUsername.$Width(209);
- txtUsername.$Height(25);
- txtUsername.$ToolTip("");
- txtUsername.$Enabled(-1);
- txtUsername.$Tag("");
- txtUsername.$MousePointer(MousePointerConstants.vbDefault);
- txtUsername.$MouseIcon((IResource)null);
- txtUsername.$CanGetFocus(-1);
- TextBox _tmp4 = txtUsername;
- add((Component)txtUsername);
- txtUsername.$Left(40);
- txtUsername.$Top(56);
- txtUsername.$Visible(-1);
- TextBox _tmp5 = txtUsername;
- pwdPassword = new PasswordField();
- pwdPassword.setOwner(Me, 3);
- pwdPassword.$BorderStyle(fmBorderStyle.fmBorderStyleSingle);
- pwdPassword.$Text("password");
- pwdPassword.$BackColorSel(0x8000000d);
- pwdPassword.$ForeColorSel(0x8000000e);
- pwdPassword.$BackColor(0x80000005);
- pwdPassword.$ForeColor(0x80000008);
- pwdPassword.$Width(209);
- pwdPassword.$Height(25);
- pwdPassword.$ToolTip("");
- pwdPassword.$Enabled(-1);
- pwdPassword.$Tag("");
- pwdPassword.$MousePointer(MousePointerConstants.vbDefault);
- pwdPassword.$MouseIcon((IResource)null);
- pwdPassword.$CanGetFocus(-1);
- PasswordField _tmp6 = pwdPassword;
- add((Component)pwdPassword);
- pwdPassword.$Left(40);
- pwdPassword.$Top(88);
- pwdPassword.$Visible(-1);
- PasswordField _tmp7 = pwdPassword;
- cmdAuthenticate = new CommandButton();
- cmdAuthenticate.setOwner(Me, 4);
- cmdAuthenticate.$Caption("Login!");
- cmdAuthenticate.$Picture((IResource)null);
- cmdAuthenticate.$RolloverPicture((IResource)null);
- cmdAuthenticate.$PicturePosition(fmPicturePosition.fmPicturePositionLeftCenter);
- cmdAuthenticate.$FontName("Arial");
- cmdAuthenticate.$FontBold(false);
- cmdAuthenticate.$FontItalic(false);
- cmdAuthenticate.$FontSize(9);
- cmdAuthenticate.$BackColor(0x8000000f);
- cmdAuthenticate.$ForeColor(0x80000012);
- cmdAuthenticate.$Width(81);
- cmdAuthenticate.$Height(33);
- cmdAuthenticate.$ToolTip("Login to twitter");
- cmdAuthenticate.$Enabled(-1);
- cmdAuthenticate.$Tag("");
- cmdAuthenticate.$MousePointer(MousePointerConstants.vbDefault);
- cmdAuthenticate.$MouseIcon((IResource)null);
- cmdAuthenticate.$CanGetFocus(-1);
- CommandButton _tmp8 = cmdAuthenticate;
- add((Component)cmdAuthenticate);
- cmdAuthenticate.$Left(168);
- cmdAuthenticate.$Top(120);
- cmdAuthenticate.$Visible(-1);
- CommandButton _tmp9 = cmdAuthenticate;
- lblStatus = new Label();
- lblStatus.setOwner(Me, 5);
- lblStatus.$TextAlign(fmTextAlign.fmTextAlignCenter);
- lblStatus.$PicturePosition(fmPicturePosition.fmPicturePositionLeftTop);
- lblStatus.$BackStyle(BackStyleConstants.vbTransparent);
- lblStatus.$BorderColor(0x80000002);
- lblStatus.$BorderStyle(fmBorderStyle.fmBorderStyleNone);
- lblStatus.$SpecialEffect(fmSpecialEffect.fmSpecialEffectFlat);
- lblStatus.$Caption("");
- lblStatus.$Picture((IResource)null);
- lblStatus.$FontName("Arial");
- lblStatus.$FontBold(false);
- lblStatus.$FontItalic(false);
- lblStatus.$FontSize(14);
- lblStatus.$BackColor(0x8000000f);
- lblStatus.$ForeColor(0x80000012);
- lblStatus.$Width(233);
- lblStatus.$Height(25);
- lblStatus.$ToolTip("");
- lblStatus.$Enabled(-1);
- lblStatus.$Tag("");
- lblStatus.$MousePointer(MousePointerConstants.vbDefault);
- lblStatus.$MouseIcon((IResource)null);
- lblStatus.$CanGetFocus(-1);
- Label _tmp10 = lblStatus;
- add((Component)lblStatus);
- lblStatus.$Left(40);
- lblStatus.$Top(176);
- lblStatus.$Visible(-1);
- Label _tmp11 = lblStatus;
- fireLoaded();
- }
- private Label lblTwitter;
- private TextBox txtUsername;
- private PasswordField pwdPassword;
- private CommandButton cmdAuthenticate;
- private Label lblStatus;
- /* member class not found */
- class Label {}
- /* member class not found */
- class TextBox {}
- /* member class not found */
- class PasswordField {}
- /* member class not found */
- class CommandButton {}
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement