vb.net - Trying to make command like "Shell" with commands with RichTextBox -

-

trying make command shell commands richtextbox.

can make simple way make it? im searching on entire webs can't find way make it. should terminal / shell / console app can add custom commands whatismyip shows me ip address etc.

should this.

private sub button1_click(sender object, e eventargs) handles button1.click    integer = 0 richtextbox1.lines.count - 1      dim parts() string = richtextbox1.lines(i).split      select case parts(0).toupper        case "getip"          richtextbox1.appendtext("sys $~ 127.0.0.1")        case else          richtextbox1.appendtext("sys $~ invalid command.")      end select    next  end sub

try this:

private sub form1_load(sender object, e eventargs) handles mybase.load     commands = new dictionary(of string, func(of string, ienumerable(of string), string))() _     { _         {"getip", function(c, ps) me.getip().tostring()}, _         {"nop", function(c, ps) "no command"} _     } end sub  private commands dictionary(of string, func(of string, ienumerable(of string), string)) = nothing  private sub button1_click(sender object, e eventargs) handles button1.click     dim command = {"nop"}.concat(me.richtextbox1.lines) _                   .reverse().first(function(l) not [string].isnullorwhitespace(l))      if (if(me.richtextbox1.lines.lastordefault(), "")).length > 0         me.richtextbox1.appendtext(environment.newline)     end if      dim parts = command.split({" "c}, stringsplitoptions.removeemptyentries)     dim result = "invalid command"     if commands.containskey(parts(0).tolower())         result = commands(parts(0))(parts(0), parts.skip(1).toarray())     end if     me.richtextbox1.appendtext("sys $~ " + result) end sub  private function getip() string     dim host iphostentry     dim localip string = "?"     host = dns.gethostentry(dns.gethostname())     each ip ipaddress in host.addresslist         if ip.addressfamily = addressfamily.internetwork             localip = ip.tostring()         end if     next     return localip end function

you'll need add following imports:

imports system.net imports system.net.sockets

then can build out dictionary each of commands.


Comments

Post a Comment

Popular posts from this blog

python - TypeError: start must be a integer -

-
i trying draw 5 turtles, getting typeerror on line 25. here code: import turtle wn = turtle.screen() redrose = turtle.turtle() color = input("what background color be?") fillcolor_f = input("what color of rose be?") redrose.hideturtle() redrose.speed(30) redrose.penup() redrose.left(180) redrose.forward(175) redrose.right(90) redrose.forward(30) redrose.right(90) redrose.pendown() def drawrose(red): redrose.color("pink") redrose.fillcolor(fillcolor_f) redrose.fill(true) in range(red): redrose.forward(i) redrose.right(49) in range(5): drawrose(redrose) redrose.penup() redrose.forward(350) redrose.right(144) redrose.pendown() redrose.fill(false) drawrose(50) wn.bgcolor(color) i trying draw 5 roses, produces errors. doing in interactivepython.org. you recursively calling drawrose wrong parameter. on line 23 ( for in range(red): ) expect red integer...
Read more

c# - DevExpress RepositoryItemComboBox BackColor property ignored -

-
i have following code almost works properly; private void cbstatus_drawitem(object sender, listboxdrawitemeventargs e) { string item = e.item string; if (item != null) { switch (item) { case "1": e.appearance.forecolor = color.green; e.appearance.backcolor = color.green; break; case "2": e.appearance.forecolor = color.orange; e.appearance.backcolor = color.orange; break; case "3": e.appearance.forecolor = color.red; e.appearance.backcolor = color.red; break; } } } when dropdown shown, items forecolor correct, backcolor remains whatever backcolor of theme is; i.e. if i've got set dark theme, backcolor dark, cells in gridview, rather being green/orange/red. i've tried setting e.appearance.options.usebackcolor trying set e....
Read more

django - Creating multiple model instances in DRF3 -

-
1) create multiple model instances 1 api call, asked here: how create multiple model instances django rest framework? tried solution named in link, no success. i trying upload multiple files in 1 api call. result: files uploaded (only once overwrote perform_create) 1 instance created (if send 2 files, latter created instance). my code: class fileuploadserializer(serializers.modelserializer): def __init__(self, *args, **kwargs): many = kwargs.pop('many', true) super(fileuploadserializer, self).__init__(many=many, *args, **kwargs) class meta: model = fileupload read_only_fields = ('created', 'datafile', 'owner') class fileuploadviewset(viewsets.modelviewset): queryset = fileupload.objects.all() serializer_class = fileuploadserializer parser_classes = (multipartparser, formparser, ) def perform_create(self, serializer): file_list = self.request.data.getlist('file') ...
Read more